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Grüß Gott - 


Guten 


Es geht auf Weihnachten 
zu und ich möchte Ihnen 
erst einmal ein frohes 
Fest und schöne Feier- 
tage wünschen. Vielleicht 
können wir auch ein paar 
neue User-Kollegen unter 
den Lesern begrüßen, 
denn erfahrungsgemäß 
steigen nunmehr allge- 
mein die Verkaufszahlen 
der Homecomputer an 
und die CPC-Modelle dürf- 
ten sich ihren Anteil 
sichern. Den frischgebacke- 
nen Computerbesitzer 
erwartet eines der inter- 
essantesten Hobbys und 
wahrscheinlich tippt man- 
cher schon in den Weih- 
nachtsferien sein erstes 
Listing ab. 

Damit — zusätzlich neben 
dieser Ausgabe von 
Schneider aktiv — genü- 
gend Material zur Verfü- 
gung steht, haben wir ein 
Listing-Jahrbuch zusam- 
mengestellt. Sie finden 
darin die besten Pro- 
gramme des vergangenen 
Jahres, wobei wir Wert 
darauf gelegt haben, daß 
sich aus diesem reichhal- 
tigen Material so mancher 
Kniff erlernen läßt. 

Wer weniger ans Abtip- 
pen denkt, sondern Soft- 
ware kauft und wer seine 
Computerausrüstung noch 
vervollständigen will, dem 
sei unser Test-Jahrbuch 
empfohlen. Auf rund 150 
Seiten finden Sie Bespre- 
chungen der wichtigsten 
Produkte sowie ein wenig 
Basis-Wissen, um einzu- 
steigen. 

Der Dezember ist aber 
auch ein Monat, um ein- 
mal zurückschauen zu 
können. Wir freuen uns, 
in dieser Ausgabe eine 
Forderung unserer Leser 
erfüllen zu können, die 
nicht zuletzt auch in un- 


Gruezi- 


Tag 


serer Fragebogenaktion 
oft geäußert wurde. Es 
handelt sich dabei um ein 
Jahresinhaltsverzeichnis. 
Es war natürlich auch für 
uns eine Bilanz und wir 
hatten Gelegenheit ein- 
mal festzustellen, ob „die 
Mischung stimmt”. Dabei 
kann man es zwar nicht 
jedem recht machen, doch 
werden Sie feststellen, 
daß wir vor keinem 
Thema zurückscheuten 
und Sie über alle Neuhei- 
ten und wichtigen Pro- 
dukte informierten. 

Ganz kurzfristig setzte 
Schneider zur Systems ei- 
ne Pressekonferenz an. 
Nur eine Woche lag zwi- 
schen der Einladung und 
dem Termin. Aber auch 
die kurze Zeitspanne, die 
seit der Vorstellung des 
PC 1640 im Sommer ver- 
gangen war, machte uns 
neugierig. Zudem wurde 
von sensationellen 
„Produkt-Neueinführun- 
gen‘ und „interessanten 
Veränderungen im Be- 
reich Computer Division” 
gesprochen. Ging es um 
Peripheriegeräte, etwa 
einen Laserdrucker? Wollte 
man den AT ausführlich 
präsentieren? Legte man 
endlich die Fakten zur ei- 
genen Produktion in Türk- 
heim dar, oder ging es etwa 
um einen lang erwarteten 
Homecomputer der neuen 
Generation? Wenn mit die- 
sen Fragen auch Ihr Inter- 
esse geweckt wurde, dann 
können Sie in dieser Aus- 
gabe nachlesen, was wirk- 
lich gesagt wurde. 

Aber wir haben noch mehr 
getan, um ein wenig über 
das Unternehmen 
Schneider berichten zu 
können. In einem Inter- 
view mit Fred Köster, dem 
Leiter der Computer 


Division, stellten wir Fra- 
gen, die allen Lesern die- 
ser Zeitschrift am Herzen 
liegen dürften. Wie geht 
es weiter mit den CPC- 
Modellen, welche Maß- 
nahmen trifft Schneider 
auf dem Homecomputer- 
Sektor? Die Antworten 
finden Sie nächsten 
Monat, in Heft 1/88. 
Bereits erwähnt wurde die 
Systems. Hier finden un- 
ter anderem die wichtig- 
sten Neuvorstellungen der 
Computerindustrie statt, 
gleich, ob es sich dabei 
um Hardware oder Soft- 


ware handelt. Alle Firmen 
mit Rang und Namen 


waren vertreten und klei- 
ne Außenseiter hofften 
auf wichtige Kontakte. 
Die heißesten Informatio- 
nen können wir Ihnen be- 
reits mitteilen. Daß 
Schneider aktiv dabei 
ohne Scheuklappen be- 
richtet und Ihnen einen 
objektiven Überblick ver- 
schaffen kann, darauf 
können Sie sich ver- 
lassen. 

Vor Problemen stand 
Lothar Mied!, Autor des 
MC-Kurses. In der Aus- 
gabe 1/88 soll endgültig 
der Checksummer er- 
scheinen. „Checker“, so 
heißt das Programm, ist 
ein Utility der Extraklas- 
se. Klar, daß die Entste- 
hung auch auf den Sei- 
ten der Maschinensprache 
beschrieben werden soll. 
So kurz der „Checker”’ 
aber auch ist, er ist extrem 
leistungsfähig. Der MC- 
Kurs wird entsprechend 
umfangreich. Dementspre- 
chend heiß hergehen wird 
es also im Januar-Heft, 
das — unter dem neuen 
Namen „Schneider-CPC- 
Welt” — manche Über- 
raschung bringen wird. 
Im Namen der Redaktion 
wünsche ich Ihnen viel 
Vergnügen beim Lesen 
dieses Heftes. 


Gert Seidel 
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TEST & TECHNIK 


High Frontiers: 
Die Weltraumschlacht 
im Wohnzimmer — 
das Spiel für lange 
Winterabende 
ab Seite 8 


Noname-Disketten: 
Was taugen eigentlich 
Billigdiscs? 
Wir kauften drei 
Dutzend und unter- 
suchten sie für Sie 

ab Seite 62 


Multiface II: 
Frieren Sie Ihre 
kopiergeschützte Soft- 
ware doch einfach ein! 
Endlich ein legaler 
Weg zur Sicher- 
heitskopie! 

ab Seite 64 


Super Cycle: 
Mit heißen Rädern 
auf die Pisten. 
Können Sie wirklich 
Motorrad fahren? 
Beweisen Sie es! 

ab Seite 74 


Tracker: 
Die absolute Horror- 
show: Ballern, denken, 
strategisch vorgehen — 
und trotzdem sterben. 
Oder nicht? 

ab Seite 76 


Probleme mit der 
RAM-Disk 
Änderungsroutine für 
Adressverwaltung 
James Bond zeigt 
Schwächen 
Vokabeltrainer- 
Probleme 

Wo ist der Bildschirm- 
speicher? 
Zweitlaufwerk als A? 
Verbesserungen zur 
Disketten-Bibliothek 
Praktiken im Versand- 
handel 

Soundmaster auch 
auf dem 464 
Notenspiegel druckt 
nicht 


Kassettenkopie mit 
dem Discmonitor? 
Hilfe bei Turbo-Pascal 
ab Seite 10 
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Systems 87: 

Wohin gehst Du, CPC? 
Der Versuch einer 
Standort-Bestimmung 
oder: Wie lange lebt 

der CPC noch 

wirklich? abSeite 4 


Bauanleitung: 
Fremde Colormonitore 
am CPC? 
Kostet ganze 12 Mark 
für ein Kabel! 
ab Seite 15 


Statistik: 
Graue Theorie oder 
praktische An- 
wendung? 2. Teil 
ab Seite 17 


Wissen: 
Der CPC als Profi — 
was leistet CP/M auf 
diesen Rechnertypen? 
ab Seite. 21 


Tips & Tricks: 
Zum Mergen nicht 
saven, sondern listen! 
ab Seite 20 


Buchbesprechungen: 
Schneider CPC- 
Dateiverwaltung — 
ein Lehrbuch für den 
Selbstprogrammierer 

ab Seite 61 


25 Extraspiele: 
Wege zum besseren 
Programmieren 
Künstliche Intelligenz: 
Was steckt dahinter und 
um was geht es? 

ab Seite 68 


Kopierprögramme: 

So manche ‚„,‚zerstörte”’ 
Disc kann damit 

noch gerettet 


werden auf Seite 63 
Börse: 

Zum Suchen und 

Finden ab Seite 71 
Inhalt: 


Das war 1987 — 
alle Themen aus 
Schneider aktiv 


ab Seite 66 


LISTINGS 


Sportauswertung: 
Ob für den Verein, 
die Schule oder das 
abendliche Kegel(Skat)- 
spiel — mit diesem 
Programm lassen sich 
alle Sieger ermitteln — 
und die Plazierten 

ab Seite 22 


Printed Matter: 

Wieder einige unbe- 
kannte Drucker- 

Utilities. Sie wissen 

gar nicht, was Ihr 

CPC kann abSeite 27 


Quickcopy: 

Ein Kopierprogramm 

für den Kassetten- 
Betrieb! ab Seite 29 


Überweisungen: 
Nicht mehr per 
Hand ausfüllen, Ihr 
CPC macht das 
per Drucker 
ab Seite 32 


Puzzle: 
Mal den Baller- 
daumen ruhen 
lassen — drei Puzzles 
gilt es zu lösen 
ab Seite 35 


Lotto: 
Fix und fertig ausge- 
füllt — Ihr Lotto- 
schein. Wir wünschen 
Ihnen natürlich sechs 
Richtige. Ein Programm 
für den PC 1512 

ab Seite 45 


Diaverwaltung: 
Es fehlt an nichts 
bei diesem Programm 
für Foto- und Dia- 
abende. Ordnung ist 
das halbe — und bei 
Dias das ganze Leben 
ab Seite 48 


Disketten 
Service: 


Coupon 
auf Seite 41 


SYSTEMS '87 


Was nun, CPC ? 


Die mit Spannung erwartete, nur alle zwei Jahre 
stattfindende Computermesse „Systems“ liegt hinter 
uns. Sie stand diesmal unter dem Motto; ‚Computer & 
Communications”. Wer sich unter diesem klangvollem 
Oberbegriff nichts Rechtes vorstellen konnte, dem 
wurde es in den Hallen schnell klar. Es ging um die so- 
genannten professionellen Rechner, der Schwerpunkt 
lag bei MS-DOS, CAD (Computer Aided Design), 
CAM (Computer Aided Manufacturing) und DTP 
(Desktop Publishing). Dies war natürlich zu erwarten, 
die Systems ist schließlich der Treffpunkt der Groß- 
kaufleute, und Herstellerfirmen müssen sich 
entsprechend präsentieren. 


Bereits vor Beginn der 
Ausstellung gab es einigen 
Wirbel, der nicht in die 
Öffentlichkeit drang. 
Selbst findige Journalisten 
brauchten einige Tage, um 


weisung, keine Homecom- 
puter auszustellen. Wer 
sich nicht an diese Auf- 
lage halten wollte, dem 
wurde eine Abmahnung 
in Aussicht gestellt. Wie 


manche Produktpalette 
zu sehr beschnitten. Die- 
ses Verfahren muß man 
natürlich akzeptieren, 
doch sollte es den Besu- 
chern bereits an der Kasse 
mitgeteilt werden. So, wie 
es gehandhabt wurde, lief 
mancher unzufriedene 
Schüler durch die Hallen, 
der vergeblich zu erfahren 
suchte, was es denn 
Neues für seinen C 64 
oder CPC gab. Dabei war 
ja genug zu sehen, nur 
mußte man sich dies mit 
viel Zeitaufwand selbst 
zusammensuchen. 

Da sich nicht alle Firmen 
an die Auflage hielten, 
konnte der aufmerksame 
Besucher doch einiges er- 


an vielen Ständen das Feh- 
len der sogenannten 
„Homecomputer“ zu be- 
merken. Bei Commodore 
verzichtete man sogar auf 
den Amiga 500, immerhin 
ein Renner in der Produkt- 
palette. Was war los? 

Es gab seitens der Messe- 
leitung eine strikte An- 


schwierig ein solches 
„Gesetz“ zu kontrollieren 
sei, dies wußte auch Peter 
Tiefenthaler, der Presse- 
referent der Messeleitung. 
Erstens gibt es ja, so muß- 
te er zugeben, sehr pro- 
fessionelle Anwendun- 

gen auf den „Kleinen“, 
zweitens wurde dadurch so 


4 


spähen. Für uns war natür- 
lich der Schneider-Stand 
Mittelpunkt des Interes- 
ses. Den Türkheimern war 
es gelungen, sich genügend 
Platz reservieren zu lassen, 
um sich auch optisch gut 
zu präsentieren. Wichtig- 
stes Gerät war dabei der 
neue AT. Hierbei handelt 


es sich erstmals um eine 
Eigenentwicklung, was 
den Gerüchten um eine 
bevorstehende Trennung 
von Amstrad und Schnei- 
der neue Nahrung gab. 
Hier zuerst nur die techni- 
schen Daten. Der PC 2640 
kommt mit einem 80286 
Prozessor, der mit 12 MHz 
getaktet wird. Erstaunt 
wird mancher über das For- 
mat der Diskettenlaufwer- 
kes sein. Die 3.5-Zoll- 


Floppy bietet zwar Platz 
für 1,4 MByte Daten, ist 
aber noch nicht sehr ver- 
breitet. Mit Sicherheit 
wird jedoch zukünftige 
DOS-Software auf beiden 
Formaten angeboten. 
Schließlich lebt auch der 
IBM P2 von diesen Disket- 
ten. Tempo ist auch bei 
der 32 MByte-Festplatte an- 


gesagt, die Zugriffszeit 
liegt bei 40 ms. Bei der 
Farbgrafik bleibt es bei 
der EGA-Karte, diese wur- 
de jedoch schon auf der 
Hauptplatine unterge- 
bracht. Im Monochrom- 
Modus liefert der AT die 
beachtliche Auflösung von 
720*348 Punkten und 
kann in 16 Graustufen dif- 
ferenzieren. Auch rein 
äußerlich hat sich einiges 
gewandelt. 

Wer die üblichen Formate 
eines AT vor Augen hat, 
der wird überrascht sein, 
wie kompakt der PC 2640 
ist. Trotzdem bleibt Platz 
für vier waagrecht unter- 
zubringende Steckkarten, 
streng nach IBM-Norm. 
Neu auch die verschiede- 
nen Warnsignale an der 
Frontplatte der Zentral- 
einheit und — vielleicht 
als Folge der Eigenent- 
wicklung — ein Monitor 


ohne Netzteil. Die Strom- 
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versorgung ist nun in der 
Zentraleinheit unterge- 


anscheinend gut kalkulie- 
ren und bricht damit die 


bracht. Darüber hinaus wur- magische Grenze von 


de sogar ein mehr oder we- 
niger feierliches Verspre- 
chen abgelegt, daß sich nie 
mehr ein Netzteil in einem 
Schneider Monitor befin- 
den soll. Preislich liegt der 
AT mit unter 7000,— DM 
für die Farbversion im Mit- 
telfeld der derzeitigen 
Angebote. 


SCHNEIDER 
PREISSENSATION: 
EIN 24-NADEL- 
DRUCKER 


Aber auch an den schma- 
len Geldbeutel hat Schnei- 
der gedacht. Als sensatio- 
nell darf man den 24- 
Nadel-Drucker bezeich- 
nen, der für 897,— DM auf 
dem Ladentisch stehen 
wird. Da es sich dabei 
noch um ein Amstrad-Pro- 
dukt handelt, kann man 


1000,— DM. Trotzdem 
wartet der LQ 3500 mit 
erstaunlichen Daten auf. 
Das Tempo der Matrix- 
schrift beträgt 160 Zeichen 
pro Sekunde, das excellen- 
te Schriftbild erscheint bei 
64 cps. Wir werden natür- 
lich diese (und andere) 
Daten noch ausgiebig an 
einem Testgerät ermitteln. 
Nicht ganz so preiswert, 
aber augenscheinlich sehr 
leistungsfähig ist das 
BTX-Modul, welches in 
den Messetagen ausgelie- 
fert wurde. Bei ca. 400,— 
DM muß allerdings nun 
auch die Bundespost noch 
etwas dazu tun, den BTX- 
Service attraktiver zu prä- 
sentieren. Fast am Rande 
wurde der Personal-VAX 
behandelt. Zum Niedrig- 
preis von 2798,— DM soll 
der Telekopierer zukünf- 


Desktop-Publishing. Ein 
entsprechendes PC-Pro- 
gramm wird ab sofort an- 
geboten. Da die Software 
unter GEM installiert ist, 
kann einiges an Komfort 
erwartet werden. Auf der 
Hardwareseite sorgten 
günstiger Einkauf und na- 
türlich die Konkurrenz 
des Schneider Produktes 
dazu, daß der 24-Nadel- 
Drucker, der bereits auf 
der Cebit im Frühjahr zu 
sehen war, von 1298,— 
auf 998,— DM gesenkt 
wurde. 


DER CPC ALS 
VIDEO-COMPUTER 


Eine Seite des Schneider- 
Standes war für den CPC 
reserviert. Hier standen 
die Homecomputer, als gä- 
be es keine Messebestim- 
mungen. Mit einigen ein- 
drucksvollen Programmen 
bewies man, daß der 8-Bit- 


Links: Der neue Schneider AT 
2640, das Flaggschiff aus 
Türkheim. Mitte: 24-Nadel- 
Drucker unter 1000 DM, 
Schneider senkt das Preis- 
niveau. Oben: Von Fischer- 
technik ein Plotter als Bau- 
kasten für die CPC 


tig auf den Schreibtischen 
der Angestellten stehen. 
Wenn der Absatz — wie zu 
erwarten — groß genug 

ist, festigt Schneider damit 
seine Stellung im Markt 
der Bürokommunikation. 
Jedoch genug von Schnei- 
der, es gab noch viele Dritt- 
firmen,die sich um die 
Rechner kümmerten. 
Schneider Data setzt auf 


Rechner noch nicht tot 
war. Herausragend die Fir- 
ma Füle Electronic. Sie 
stellte einen CPC mit 
GENLOCKER und einen 
PAL-Colour Digitizer vor. 
Die Geräte im einzelnen: 
Mit dem Genlock-CPC 
können in Videofilme 
oder in Live-Sendungen 
Schriften oder Grafiken 
eingeblendet werden. Fast 


als Nebeneffekt ist die 
Bilderdigitalisierung mög- 
lich. Vorerst beschränkt 
sich die Lieferung jedoch 
nur auf einen umgebau- 
ten CPC 6128 mit Farb- 
monitor, der zu 3900, — 
DM angeboten wird. Spä- 
ter sollen auch Umbauten 
an vorhandenen Geräten 
vorgenommen werden. 
Dies selbstverständlich we- 
sentlich preiswerter. Wer 
bisher nach einem Digitali- 
sierer suchte, wird eben- 
falls von Füle Electronic 
bedient. Das Modul er- 
laubt die Umsetzung in 
die 16 Originalfarben. Die 
Auflösung liegt bei 
160*200 Pixel, was 
durchaus zu optisch ange- 
nehmen Ergebnissen führt. 
Für ein Bild werden dabei 
2,5 Sekunden benötigt. 


SCHNEIDER BEZIEHT 
STELLUNG 


Bereits am ersten Tag der 
Systems lud Schneider zur 
Pressekonferenz. Die 
Veranstaltung war gut 
besucht, erwartete man 
doch einige Neuigkeiten 
und die Klärung von Ge- 
rüchten. Das größte Inter- 
esse galt dem neuen Com- 
puter-Entwicklungschef 
Wilfried Rusniok. Er konn- 
te bereits bei der Kon- 
struktion des AT entschei- 
dend eingreifen. In Zu- 
kunft wird der ehemalige 
Commodore-Mann dafür 
sorgen, daß für die geplan- 
te Fertigung in Türkheim 
die richtige Mannschaft 
und das richtige Produkt 
bereitstehen. Um was es 
dabei ging, darüber hüllten 
sich sowohl Wilfried Rus- 
niok als auch Fred Köster 
in Schweigen. Sicher 

ist nur, daß der AT nicht 
in Türkheim produziert 


wird. 

Zur Zukunft des Home- 
computers, des CPC also, 
gab es kaum echte Infor- 
mationen. 1987 erlebt 
Schneider mit 120000 
Stück das beste Verkaufs- 
jahr der 8-Bit-Maschine, 
erkannte aber auch, daß 
die Zeiten solcher Rech- 
ner zu Ende gehen. Das 
Wort „Homecomputer“ 
will Fred Köster allerdings 
nicht gelten lassen. Er 
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spricht lieber von einem 


Markt der privaten Anwen- 


der. Und hier, so die wich- 
tigste Aussage des Abends, 
„werden wir diesen Be- 
reich nicht fallenlassen‘““. 
Es wurden neue — natür- 
lich innovative — Produkte 
für das Jahr 1988 verspro- 
chen. 

Dies ist auch das Jahr, in 
dem man über den Fir- 
menverbund Schneider/ 
Amstrad nachdenken will. 
Dann wird es sich auch 
zeigen, ob die Ehe zwi- 
schen den beiden Elektro- 
nik-Konzernen es aus- 
hält, wenn sich Schneider 
eine Geliebte namens 
„Eigenentwicklung‘ hält. 
Zur Systems war dieses 
Thema noch nicht end- 
gültig geklärt, es war je- 
doch spürbar, daß das Pro- 
blem auf den Nägeln 
brennt. 


DER CPC HÄLT 
EINZUG IN DIE 
SCHULEN 


Vom Verkaufserfolg des 
Schneider Homecompu- 
ters profitieren nunmehr 
auch Schüler. Die Firma 
Fischerwerke zeigte auf 
ihrem Stand einige beein- 
druckende Geräte, die 
schon längst das Stadium 
der Kinderbastelei hinter 
sich gelassen haben. Es 
ging um Plotter und 
Scanner sowie um Modell- 
Roboteranlagen. Nach 
Aussage des technischen 
Beraters, Wolf Rüdiger 
Adolph, sind diese Bau- 
sätze in vielen Berufsschu- 
len zum Standard gewor- 
den. Durch ein Universal- 
Interface, welches über den 
Druckerport angesteuert 
wird und für jeden Bau- 
satz gilt, bleibt der Preis 
niedrig. So ist der Bausatz 
für einen Plotter (oder 
Scanner, da beides in einer 
Packung) schon für 450,— 
DM zu haben. 


NEUE SOFTWARE 
IN SICHT 


Bislang sah es etwas flau 
auf dem Sektor der Spiel- 
Software aus. Es fehlte 
an neuen Ideen und an 
Firmen, die diese durch- 


setzen. Erfreulicherweise 
konnte sich auf der 
Systems die relativ junge 
Firma Bomico präsentie- 
ren. Die Produkte, die in 
den nächsten Wochen auch 
für den CPC auf den Markt 
kommen sollen, sind viel- 
versprechend. Rechtzeitig 
zum Start des neuen 
Asterix-Abenteuers er- 
scheint die Geschichte 
auch als Adventure auf 
dem Computer. Da es sich 
um eine hervorragende 
Grafik handelt und das 
Spiel auch nicht auf 
Action-Teile verzichtet, 
darf man gespannt sein. 
Auch hierzu werden Sie ei- 
nen ausführlichen Test le- 
sen. Vorerst sei nur noch 
verraten, daß auch die 
Abenteuer der Comic-Hel- 
den „Lucky Luke“ und 
„Blueberry“ auf Diskette 
gepackt werden. In Zu- 
kunft soll dann zu jedem 
Comic-Band das Aben- 


teuer auch auf Software 
erhältlich sein. 


EINBRUCH AUF DEM 
DRUCKERMARKT 


Alleine diese Dinge wür- 
den schon die 8-Bit-Com- 
puter auf der Messe recht- 
fertigen, aber es gab noch 
mehr Messeneuheiten, die 
sich im Bereich der Home- 
computer durchsetzen 
werden. Hierzu muß noch 
einmal die Drucker-Peri- 
pherie angesprochen wer- 
den. Der 24-Nadel-Drucker 
hat auf breiter Front die 
1000,— DM-Grenze unter- 
schritten und wird dem- 
nächst zum Standard wer- 
den. NEC, die sich kurz 
vor der Messe noch als ein- 
zige in dieser Klässe wähn- 
te, stellte den P2200 vor, 
der mit 168 Zeichen in 
Matrix- und 47 Zeichen 
bei Letter Quality (Werks- 
angaben) mithalten kann. 
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Die Systems 87 — auf der auch Schneider aktiv mit einem Stand 
vertreten war — endete mit einem neuen Besucherrekord. Rund 
150 000 Interessenten zahlten die saftigen Eintrittgebühren 
-35 DM pro Tag! —, um sich einen Überblick über den gegen- 
wärtigen Stand der PC-Technik zu verschaffen. Damit ist die 
Systems — die nur Fachbesuchern offensteht — die größte Messe 
dieser Art auf der Welt! 

Rechts : Der Neun-Nadel-Drucker von Citizen mit interessanten 
Features. 


Auch hier folgt ein aus- 
führlicher Test, vorerst 
muß noch der Preis von 
998,— DM (ohne Mehr- 
wertsteuer) das Interesse 
wecken. Von NEC geht da- 
mit der größte Angriff ge- 
gen den neuen Schneider- 
Drucker aus. 

Citizen bleibt in der unte- 
ren Preisgruppe und bie- 
tet mit dem LSP 100 noch 
einen 9-Nadel-Drucker an, 
bezeichnete ihn aber als 
„Abrundung der bisheri- 
gen Palette nach unten“. 
Das durchaus leistungsfä- 
hige Gerät verspricht ins- 
besondere in diesem Preis- 
bereich ein Knüller zu wer- 
den. Was hier nicht in den 
Druckkopf investiert wur- 
de, zahlt sich bei den son- 
stigen Optionen aus. Als 
Besonderheit kann der 
Traktor auf verschiedene 
Weise montiert werden. 


DIE LIEBE 
KONKURRENZ — WAS 
TAT SICH SONST? 


Schneider aktiv lief nicht 
mit Scheuklappen über 
die Messe. Soweit es unse- 
re Zeit am Messestand zu- 
ließ, informierten wir uns 
auch über die Produkte 
jener Firmen, die man ge- 
meinhin als Konkurrenz 
bezeichnet. Da galt es zu- 
erst einmal, den Atari- 
Stand zu besuchen. Hier 
war der Laserdrucker für 
ca. 4000 DM zu bewun- 
dern. Dem — in Gerüchten 
bereits gehandelten — 
Schneider-Produkt er- 
wächst damit bislang 
noch kein Gegner, da 
Atari sich darauf be- 
schränkte, nur einen 
ST-Druckertreiber zu prä- 
sentieren. Auch der Scan- 
ner, hier fehlte eine Preis- 
angabe, dürfte nicht so 
wichtig für User außerhalb 
des Atari-Kreises werden. 
Bei Atari muß ohnehin 
immer das Ankündigungs- 
verhalten berücksichtigt 
werden. Bestes Beispiel 
ist der Blitter für die ST- 
Serie, welcher nunmehr 
nach fast einem Jahr end- 
lich in Serie gehen soll. 
Ernsthafter ist der Wett- 
bewerber Commodore. 
Er vermochte auf der 
Systems zu glänzen und 


zeigte in bester Show- 
Manier (mit dem FC 
Bayern als Showstars) die 
gesamte Produktpalette. 
Daß mit einer Steckkarte 
nunmehr auch vom Amiga 
2000 der MS-DOS-Be- 
reich erobert werden kann, 
wird Schneider ebenso in- 
teressieren wie das neue 
Spitzenprodukt, der PC 
60. Den 32 Bit-AT mit 
80386 CPU und wahlweise 
40 oder 80 MByte Fest- 
platte wird man in Türk- 
heim sicher nicht aus den 
Augen verlieren. Bei rund 
12000,— DM stellt er al- 
lerdings noch keinen Geg- 
ner für den Schneider AT 
dar. 


FAZIT: DER UMSTIEG 
AUF 16 BIT IST 
VOLLZOGEN 


Wahrscheinlich war die 
Systems 1987 die letzte 
Messe, auf der sich 8-Bit- 
Rechner bemerkbar mach- 
ten. Bereits hier war ihre 
Präsenz gleich Null, was 
nichts damit zu tun hat, 
daßd der Homecomputer 
von der Messeleitung ‚‚ver- 
boten“ wurde. Gerade 

die leistungsfähigeren Ma- 
schinen und die dazugehö- 
rige Software machten klar, 
daß kein Weg mehr an ei- 
nem 16-Bit-Computer vor- 
beiführt. 

Es ist zu spät, den CPC 
mit Schminke aufzuwer- 
ten,etwa,indem man ihm 
ein GEOS-ähnliches Be- 
triebssystem oder eine 
neue Floppy verpaßt. 
Auch im Bereich der Pri- 
vat-Anwendungen steigen 
die Ansprüche. Der Rech- 
ner muß mit Rechenge- 
schwindigkeit und Spei- 
cherplatz mithalten. Ob 
MS-DOS der einzige Weg 
ist, die Qualität des 
Homecomputers zu stei- 
gern, überlegt man sicher- 
lich schon lange in Türk- 
heim. Mit der eigenen 
Entwicklung und Ferti- 
gung ist eine große 
Chance gegeben, sich ei- 
nen Marktanteil bei den 
Super-Homecomputern 

zu sichern. Ob diese Gele- 
genheit genutzt wird, kann 
erst im Frühjahr des näch- 
sen Jahres entschieden 
werden. 


HIGH FRONTIER 


TEST 


Weltraum- 
Schlacht 


im Wohnzimmer 


Die Amerikaner entwickeln SDI (Strategic Defence Initiative) und 
stellen damit laufend Versuche an, zum Ärger der Sowjets. In den nächsten 
Jahren soll dieses „Weltraumabwehrsystem“ funktionsfähig sein und 
installiert werden. Die CPC-Besitzer sind jedoch schon jetzt in der Lage, 
auf dem CPC mit diesem System zu spielen und einen weltweiten atomaren 
Krieg zu simulieren. Das Spiel „High Frontier — An SDI Wargame” 
macht Sie zum Retter der westlichen Welt. 


Wer kennt nicht den Begriff “SDI“ 
aus der Presse oder dem Fern- 
sehen? Die Amerikaner verstehen 
darunter ein perfektes System zur 
Verteidigung gegen jeden möglichen 
Angreifer, für die Russen dagegen 
ist es der Inbegriff des ‚Kriegs der 
Sterne“. Wer auch immer recht hat, 
auf Ihrem Computer können Sie die- 
ses Spiel spielen und sich darin ver- 
suchen, die westliche Zivilisation 
vor dem Angriff der Sowjets zu 
schützen. 

Dieses Spiel ist eine Mischung aus 
Strategie- und Ballerspiel, wobei 


aber eindeutig die strategischen Über- 


legungen im Vordergrund stehen. 
User, die die reinen Schießspiele be- 
vorzugen, werden enttäuscht sein, 
denn die eigentlichen Schwierigkei- 
ten bei diesem Programm von 
Activision liegen in den strategi- 
schen und taktischen Operationen. 
Die Schießerei wird davon eindeutig 
in den Hintergrund gedrängt. 


WÄHLEN SIE SICH IHREN 
WUNSCHPRÄSIDENTEN! 


Nach dem Starten des Programms 


kommen Sie zuerst in ein Auswahl- 


menü, wo einige Voreinstellungen er- 


folgen müssen. Sie können dabei den 
Charakter des amerikanischen Präsi- 
denten und des sowjetischen Staats- 
oberhauptes bestimmen. Und zwar 
haben Sie die Wahl zwischen fried- 
lichen, realistischen und kriegeri- 
schen Typen. Wählen Sie auf beiden 
Seiten den friedlichen Typ, so ver- 
liert das Spiel schnell an Sinn, denn 
Sie wollen ja den Krieg simulieren. 
Und mit friedlichen Staatsoberhäup- 
tern ist ja schlecht ‚Krieg spielen“ 
möglich. 

Auch den Level können Sie wählen. 
Am Anfang ist bestimmt der ein- 
fachste Level der beste, denn das 
Spiel ist nicht ganz einfach zu spie- 
len. Steigern können Sie den 
Schwierigkeitsgrad dann später im- 
mer noch! 


Vom Vormenü aus können Sie auch 
einen Spielstand, den Sie schon bei 
einem vorangegangenen Spiel ein- 
mal abgespeichert hatten, jetzt wie- 
der einladen. 

Sind diese Voreinstellungen erledigt, 
wählen Sie die Option ‚Spielen‘ an 
Nun sehen Sie auf dem nun erschei- 


Die Weltkugel zeigt Ihnen eine Welt- 
karte, läfst die Zeit verstreichen und 
gibt Ihnen Anweisungen des Kriegs- 
computers. Das Ritterschild verbin- 
det Sie mit der SDI-Zentrale. Durch 
den Rechner werden Sie mit dem 
Forschungs- und Entwicklungszen- 
trum gekoppelt. Die Kamera zeigt 
Ihnen die Spionagebilanz, während 
Sie über den Totenkopf zum Lage- 
zentrum umschalten. 


EIN ROTES TELEFON ZUM 
WEISSEN HAUS 


Das Ikon ganz rechts unten zeigt 
Ihnen den Kalender, also die Zeit, 
die seit Spielbeginn verstrichen ist. 
Der Kalender startet im Jahr 1. Je- 
desmal, wenn Sie die Weltkugel an- 
wählen, vergeht wieder etwas Zeit, 
meist drei bis vier Monate. Der 
Lauf dieser Zeit wird nur durch 
Anrufe unterbrochen, die Sie unbe- 
dingt beachten sollten. Mal ruft der 
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nenden Bild am unteren, rechten und Präsident an und fragt nach der 
linken Bildschirmrand eine Reihe von Zerstörungskraft der Raketen oder 


Display’s, die Sie während des gan- 
zen Spiels gut im Auge behalten 
müssen. 

Besonders wichtig sind die Kom- 
mandosymbole am unteren Bild- 
schirmrand. Dort sehen Sie 6 Icons. 
Unter einem dieser Symbole wartet 
ein gelber Pfeil auf Ihre Eingaben. 
Diese Icons sind ein Telefon, eine 
Weltkugel, ein Ritterschild, ein Ta- 
schenrechner, eine Kamera und ein 
Totenkopf. 

Über das Telefon erhalten Sie An- 
weisungen vom Präsidenten der USA 
oder werden von ihm etwas gefragt. 
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teilt Ihnen den Abschußcode der eige- 
nen Raketen mit, wenn die Lage 
ernst wird. 


RAKETENBAUEN LEICHT 
GEMACHT 


Der Taschenrechner (Forschungs- 
zentrum) blinkt auf, wenn das Weiße 
Haus wieder Geld und Personal be- 
willigt hat. Klicken Sie dann dieses 
Symbol an, befinden Sie sich im 
Forschungszentrum, wo Sie nun die 
Entwicklung der Raketen und Satel- 
liten steuern können, indem Sie die 
zugeteilten Finanzmittel und das 


zugewiesene Personal auf die einzel- 
nen Objekte (insgesamt sechs ver- 
schiedene) verteilen können. 

Aber Achtung! Versuchen Sie nicht, 
alle sechs Objekte gleichzeitig her- 
zustellen, dazu reicht die Zeit bis 
zum russischen Angriff nicht aus. 
Konzentrieren Sie Geld und Perso- 
nal auf zwei oder drei der wirkungs- 
vollsten Waffensysteme und sehen 
Sie zu, daß die Produktion auf vol- 
len Touren läuft. Ist dann eine 
Waffe einsatzbereit, so schießen Sie 
sie schnellstens in den Weltraum! 


HINTER DEM RITTERSCHILD 
VERBIRGT SICH DIE 
SDI-ZENTRALE! 


Dazu wählen Sie die SDI-Komman- 
dozentrale (Ritterschild) an. Sie er- 
kennen nun an den sechs rechten 
Ikons Ihre bereits produzierten 
Waffensysteme. Wählen Sie mit dem 
Joystick das gewünschte System an 


TEST 


Wenn sich an der militärischen Welt- 
situation etwas ändert, meldet sich 
das Totenkopfsymbol. Klicken Sie 
esan und Sie sehen eine Weltkarte, 
die Sie über sowjetische Truppen- 
konzentrationen, Schiffsbewegun- 
gen und Raketenstützpunkte infor- 
miert. Oben am Bildschirm dann die 
zusammenfassende Beurteilung der 
Lage, dargestellt durch ein Herz und 
eine Bombe. Je näher der Leucht- 
balken dem einen oder anderen Sym- 
bol kommt, desto klarer wird die 
militärische Lage, also entweder 
Frieden oder Krieg oder irgendwo 
dazwischen. 


NACH 12 JAHREN WIRD 
DIE LAGE ERNST 


Nach etwa 12 Jahren müssen Sie so- 
viel eigene Satelliten wie möglich 
installiert und aktiviert haben, um 
einem russischen Angriff wirkungs- 
voll standzuhalten. Um vor dem An- 
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Reaktionen 


und starten Sie es durch Anklicken 
des Raketensymbols. 

Bis die Satelliten im Weltraum sind, 
vergeht einige Zeit. Sie müssen sich 
also etwas gedulden. Zum ‚„‚Scharf“- 
machen der Waffen dann den Pfeil 
anwählen und aktivieren. Nun wer- 
den Sie nach dem Abschußcode des 
Präsidenten gefragt. Sie können also 
Ihre Waffen nur aktivieren, wenn 
Sie den Code wissen. Daher also im- 
mer auf die Anrufe des Präsidenten 
achten, denn der teilt Ihnen den 
Code nur einmal mit! Und: Haben 
Sie diesen Anruf übersehen, so nüt- 
zen Ihnen Ihre Waffen gar nichts, 
weil Sie sie nicht aktivieren können! 


griff noch im Weltraum aufzuräu- 
men und die gegnerischen Killer- 
und Kampfsatelliten lahm zu legen, 
schalten Sie sich in die SDI-Zentrale 
ein und wählen Sie das Joysticksym- 
bol an. Dann sehen Sie den Welt- 
raum vor sich und können Jagd auf 
die russischen Systeme machen. Da- 
zu müssen Sie mit dem Joystick bal- 
lern, bis Ihnen der Daumen weh- 
tut. Nur die eigene Munition muß 
natürlich beachtet werden. 

Schlagen jedoch die Sowjets zuerst 
zu, so wird die Zeit kanpp und die 
Lage ernst. Ein solcher Angriff wird 
Ihnen am Bildschirm sofort signali- 
siert. Die Uhr rechts unten zeigt Ih- 
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nen jetzt die Zeit an, die bis zum 
Einschlag der ersten russischen 
Atomsprengköpfe bleibt. Nun ver- 
wandelt sich das Telefon auch in ei- 
ne Rakete. Wählen Sie nun dieses 
Symbol an (zweimal aufrufen!), so 
werden die eigenen Abwehrsysteme 
aktiviert und schlagen zurück. 

Die Auswertung des Spieles ertolgt 
dann durch den CPC, der die eige- 
nen und fremden Einschläge zählt, 
die abgefangenen Systeme berück- 
sichtigt und so Punkte vergibt. 


FAZIT: EINSTRATEGIESPIEL 
ERSTER KLASSE 


Das Spiel erscheint auf den ersten 
Blick zwar unheimlich kriegerisch, 
spiegelt aber lediglich die heikle mi- 
litärpolitische Lage dieser Welt wie- 
der. Es ist ein Spiel, das manchmal 
eine beklemmende Realität herauf- 
beschwört. 

Es ist gut gemacht, sowohl von der 
Grafik als auch von der Umsetzung 
der Idee. Sound ist kaum vorhanden, 
der beschränkt sich lediglich auf ei- 
nige Aktiongeräusche. Aber bei ei- 
nem Kriegsspiel ist ja auch keine 
Walzermusik zu erwarten. 

Das Spiel hat allerdings eine hohe 
Motivation, da es, wie oben schon 
gesagt, Überlegung und Strategie 
erfordert und nicht so sehr den be- 
rühmten Ballerdaumen. 

Das Handbuch, das diesem Spiel bei- 
liegt, ist in Deutsch verfaßt und be- 
schreibt das Spiel sehr gut. Es läßt 
wohl, wenn man es sich aufmerk- 
sam durchliest, auch hinsichtlich der 
Handhabung und Bedienung keine 
Fragen mehr offen. Solche Hand- 
bücher und Spielanleitungen 
wünscht man sich öfter! 

Der Preis für dieses Spiel ist zwar 
nicht gerade niedrig: DM 39,95 für 
die Kassettenversion, DM 49,95 für 
die Diskette. Dafür erhalten Sie 
aber ein spannendes, abwechslungs- 


High Frontier — SDI Simulation 
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reiches und gut gemachtes Spiel, 
auch wenn das Thema selbst einem 
manchmal eine Gänsehaut verur- 
sacht. Auch die Namen der Auto- 
ren (Alan Steel und Ian Bird) bür- 
gen für Qualität. Das richtige Spiel 
für die langen Winterabende! (JE) 


a en TE Are 


PROBLEME MITDER 


RAM-DISK BEIM 
PC 1512 


Ich habe seit kurzem ei- 


nen PC 1512. In ihm setze 
ich des öfteren die RAM- 
Disk höher und vergesse, 
sie beim Abschalten 
zurückzuschalten. Somit 
ist das Neubooten von 
GEM nicht möglich und 
ich muß die RAM-Disk 
„per Hand‘ zurücksetzen 
und neu booten. Jetzt 
suche ich eine Routine, 
die die Parameter der 
RAM-Disk von alleine auf 
34 KByte zurücksetzt, 
bzw. wie der batteriege- 
pufferte Speicher ange- 
sprochen wird. Es wäre su- 
per, wenn Sie mir mit ei- 
ner at-Datei oder einem 
GW-Basic-Programm hel- 
fen könnten. 

Matthias Gensler, 
Stuttgart 


Die Parameter für die 
RAM-Disk können unter 
DOS durch die Datei 
CONFIG.SYS eingestellt 
werden. Der Inhalt dieser 
Datei sieht normalerwei- 
se so aus: 

FILES=20 

BUFFERS=5 

DEVICE=\ MSDOS\ 
RAMDRIVE.SYS NVR 
COUNTRY=044 

Mittels des Programms 
RPED kann diese Datei 
geändert werden. Die drit- 
te Zeile legt fest, daß die 
Parameter für die RAM- 
Disk aus dem batteriege- 
pufferten Speicher NVR 
geholt werden. Die NVR- 
Parameter können mit- 
tels des Programmes 
NVR.EXE eingestellt 
werden. 

Die Einstellung beim Start 
kann aber auch mit ande- 
ren Werten durchgeführt. 
werden. Anstelle von 
NVR müssen dort dann 
die entsprechenden Para- 
meter angegeben wer- 
den. 

Größe des Laufwerkes 
in’ KByte 

Sektorgröße in Bytes 
Maximale Anzahl der 
Dateien (bis 512) 

Siehe hierzu auch Seite 
628 des Handbuches. 
Dies bedeutet, daß Sie für 
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D-8044 
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die RAM-Disc im NVR 
34 KByte eingestellt las- 
sen und dieser Wert beim 
Booten des Systems immer 
wieder aus dem NVR ge- 
holt wird. Für die aktuel- 
le Arbeit können Sie die- 
sen Wert immer wieder 
ändern. Die Änderungen 
dürfen eben nicht abge- 
speichert werden, dann 
bleibt der Bootvorgang 
immer gleich. 


KEINE ÄNDERUNGS- 


'ROUTINE BEI DER 


ADRESSVERWALTUNG 
(11/86) 


Leider habe ich einige 
Schwierigkeiten mit Ihrem 
Programm und möchte 
Sie bitten, mir bei diesen 
Problemen behilflich zu 
sein. Das Programm läuft 
an sich sehr gut, aller- 
dings ist es unmöglich, 
einmal eingegebene Adres- 
sen zu ändern. Ich habe 
das Programm mehrmals 
mehrfach auf irgendwel- 
che Tippfehler abgesucht, 
konnte aber keine ent- 
decken. Ich hoffe, daß 

Sie mir diesbezüglich wei- 
terhelfen können. 
Thomas Lörösch, 

6405 Eichenzell 


Leider können wir dies 
nicht, denn der Autor die- 
ses Programmes hat eine 
Anderungsroutine nicht 
vorgesehen. Sie haben je- 
doch die Möglichkeit, 

den Datensatz, der geän- 
dert werden soll, erst zu 
löschen und anschließend 


korrekt wieder einzu- 
geben. 


JAMES BOND ZEIGT 
SCHWÄCHEN 
AM CPC 6128 


Ich habe einen CPC 6128 
und habe das Listing 
James Bond aus Heft 
9/87 eingegeben. Aber es 
gibt bei der Ausgabe der 
Anweisungen Probleme. 
Was ist zu tun? 

Rolf Döring, 

7150 Lesnheig 


Sie haben leider recht. 
Auf dem 6128 läuft das 
Programm nicht korrekt 
in der abgedruckten 
Form. Ändern Sie alle 
Textausgaben in Klein- 
schrift um, dann klappt 
es. 


. NACHTRAG ZUM 


VOKABEL- 
TRAINER (8/87) 


Ich habe einen CPC 6128 


und Probleme mit dem 
Programm Vokabeltrainer. 
Wenn ich nach der Ein- 
gabe von ca. 15 Vokabeln 
zurück in das Hauptmenü 
gehe und abspeichern 
will, dann klappt es nicht. 
Ein Tippfehler ist ausge- 
schlossen, ich bezog das 
Listing mit der Softbox. 
Werner Schäfer, 

5477 Nickenich 


Es klappt, wenn Sie fol- 

gendermaßen vorgehen: 

Auswahl des Menüpunktes 
Vokabeln eingeben‘. 
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Bei der Eingabe der Fremd 
sprache und nach 15 
okabeln — entsprechend 
Ihrem Beispiel — geben 
Sie statt des sechzehnten 
Wortes ein Ausrufezei- 
chen ein. Im Hauptmenü 
können Sie dann mit den 
Cursortasten den Menü- 
punkt „Vokabeln sichern“ 
ansteuern und auswählen. 
Es wird ein Dateiname 
angefordert (z.B. Eng- 
lisch). Geben Sie diesen 
Titel ein, beenden Sie die 
Eingabe mit Enter und 
die Daten werden abge- 
speichert, während eine 
Bildschirmmeldung auf- 
fordert, zu warten. An- 
schließend meldet sich 
das Hauptmenü. Unter- 
stützt werden Sie durch 
Bildschirmhinweise im 
unteren Teil des Monitors. 
Daß die Diskette nicht 
schreibgeschützt sein 
darf, versteht sich von 
selbst. 


WO IST DER BILD- 
SCHIRMSPEICHER? 


Ich habe einen CPC 664 
mit Vortex Speicherer- 
weiterung und will unter 
CP/M direkt auf den 
Bildschirmspeicher zu- 
greifen. Deshalb die Fra- 
gen: 

a.) wo befindet sich unter 
CP/M 2.2 der Bildschirm- 
speicher? 

b.) wo liegt er bei CP/M 
Plus? 

Roland Schubert, 

4900 Paderborn 


Der Bildschirmspeicher 
unter CP/M 2.2 liegt bei 
&C000, unter CP/M Plus 
bei &4000. Bei den Vor- 
tex-Speicherkarten ist 
dies — laut Auskunft der 
Firma — genauso, die 
Bildschirmspeicher befin- 
den sich dabei in der 
Originalbank. 


ZWEITLAUFWERK FÜR 
DEN SCHNEIDER PC 
1512 — FRAGEN ZUM 
BERICHT AUS HEFT 
9/87 


Bezugnehmend auf Heft 
9/87 folgende Fragen: 

l. Wie wird das Zweitlauf- 
werk zum “A“ und das 
vorhandene zum “B“ 


(andere Möglichkeit als 
Steckertausch)? 

2 Ich möchte als Zweit- 
laufwerk (A-Laufwerk) 
ein 80-Spuren-Drive ein- 
bauen. Wie erreiche ich, 
daß es bootfähig wird? 
3. Kann ich beim 80- 
Spuren-Laufwerk mit 


DOS Plus arbeiten und z.B. 


GEM laden? 
Thomas Braun, 
7000 Stuttgart 


Zu Ihren drei Fragen die 
folgenden Antworten: 

1. Die Laufwerksnum- 
mern werden durch soge- 
nannte Jumper auf den 
Laufwerken direkt ange- 
wählt. Hierzu muß das 
Laufwerk ausgebaut und 
dann der Abschirmkäfig 
entfernt werden. In der 
Nähe des Shugart-An- 
schlusses befinden sich 
vier Stiftstecker-Paare. Ne- 
ben diesen Stiftpaaren fin- 
den Sie die Bezeichnung 
DO bis D3. Je nach Jum- 
per (Kurzschlußbügel) er- 
hält das Laufwerk damiüi 
die entsprechende „Adres- 
se‘. Wenn Sie also einen 
PC mit einem Laufwerk 
haben, dann ist dabei 


die Brücke bei DO gesteckt. 


2. Damit von einem 80- 
Track-Laufwerk gebootet 
werden kann, muß dieses 
Laufwerk als Laufwerk 
“A (Jumper DO) festge- 
legt werden. Die zweite 
Bedingung ist, daß das 
Laufwerk “A als 80- 
Track-Laufwerk erkannt 


wird. Die dritte Bedingung: 


Sie müssen über eine boot- 
fähige Diskette verfügen. 
3. Bei unseren Versuchen, 
andere Laufwerke in Ver- 
bindung mit dem Schnei- 
der PC 1512 zu benutzen, 
kamen wir bei unseren 
1,2 MByte-Tests nicht 
recht weiter. Deswegen 
wandten wir uns an die 
Firma Schneider und ba- 
ten um Rat. Aber dort 
konnte nicht geholfen 
werden und man fragte 
bei Amstrad weiter. Nun 
liegt die Originalantwort 
vor, wobei wir absichtlich 
auf eine Übersetzung ver- 
zichteten, da der Kom- 
mentar in vielerlei Bezie- 
hung interessant ist: 

A.) Drives greater than 
360 KBytes are supported 
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SCHNEIDER 
HOTLINE 


Jeden Montag 15-19 Uhr 
(ausgenommen 


an Feiertagen) 


Tel. 089) 
184023 


in MSDOS in one of the 
following three ways: 

(I) Special BIOS 

(II) Installable device 
driver (DOS 3.0+) 

III) Built in support 
(DOS 3.2+) 
Unfortunately DOS Plus 
is only DOS 2.11 compa- 
tible, therefore option (]) 
is the only solution. You 
would have contact Digi- 
tal Research for a quota- 
tion for this work as 
Amstrad has no facilities 
for implementing special 
BIOS code. 

B:) There is no facility on 
the PC 1640 to attach a 
1.2 MB Disk drive. This is 
a hardware restriction, not 
a software restriction (see 
above). As far as we know 
there is no IBM 8088/ 
8086 machine sold with 
a 1.2 MB option. 

Es geht also nicht, es sei 
denn, man möchte sich ein 
spezielles BIOS schreiben 
oder gar Hardware-Modi- 
fikationen in dieser Rich- 
tung planen. 


USERFUNKTIONEN 
SORGEN FÜR 
ORDNUNG 


Manch einer mag die Dis- 
kettenunterteilung für 15 
User als überflüssig emp- 
finden. Wieviele CPC-Be- 
nutzer teilen sich schon 
eine Diskette mit 14 an- 
deren Usern. Aber man 
kann den Befehl immer- 
hin dazu benutzen, beim 
Directory etwas Ord- 
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nung zu schaffen. Viele 
Programme, insbesondere 
MC-Spiele, sind in mehre- 
re Files unterteilt. Für 
den Anwender ist nur das 
erste, eben das Ladepro- 
gramm, wichtig. Alle ande- 
ren können unter USER | 
abgespeichert werden 

und erscheinen dann nicht 
mehr im Directory, wenn 
man den CAT-Befehl an- 
wendet. Dadurch bleibt 
die Inhaltsanzeige der Dis- 
kette übersichtlich und 
man riskiert nicht mehr, 
das falsche File mit RUN 
aufzurufen. Dies vielleicht 
auch als Anregung für die 
Softbox. 

Wolfgang Loos, 

4708 Kaamen 


Vielen Dank für den wir- 
kungsvollen Tip, auf den 
selbst „alte Hasen‘ bisher 
nicht gekommen sind. Bei 
unserer Softbox wird 
allerdings alles beim alten 
bleiben, um nicht neue 
Verwirrung zu stiften. Wir 
wollen nicht riskieren, 
daß Programmteile lange 
gesucht werden müssen. 


MENÜBEDIENUNG BEI 
„BEST WORD’ UND 
PROBLEME MIT 
RSX-BEFEHLEN 


Beim Starten des RSX- 
DEMO folgt eine Zeile 
„unknown command in 
110°“. Das Programm 
bricht ab! 

Ein weiteres Problem ha- 
be ich beim Vokabeltrai- 


ner „Best Word‘. Nach 
laden und starten bin ich 
im ersten Menü „Voka- 
beln eingeben‘. Aber wie 
komme ich in weitere 
Menüs oder breche die 
Eingabe ab? Alle Versuche 
sind bis jetzt gescheitert. 
Gibt es eine besondere 
Tastaturfolge oder einen 
anderen Trick? In der Be- 
schreibung des Heftes ist 
nichts dazu vermerkt. 
Fritz Warth, 

6800 Mannheim 


Wenn Sie zuerst das RSX- 
DEMO starten, dann 
bricht der CPC in Zeile 
110 ab, weil er auf den 
Befehl :OVERLAP stößt, 
der ersten RSX-Anwei- 
sung. Dabei handelt es 
sich ja nicht um einen 
Basic-Befehl, sondern um 
ein kleines Maschinenpro- 
gramm, welches den Na- 
men OVERLAP trägt und 
so aufgerufen werden 
kann. Dieses Maschinen- 
programm muß dem CPC 
allerdings erst einmal ‚,‚bei- 
gebracht‘' werden. Dies 
geschieht durch das (MC-) 
Programm RSX.BIN. 
Nachdem die Daten ein- 
gelesen wurden und der 
Befehl durch CALL 
&A000 initialisiert wur- 
de, kann das Demopro- 
gramm mit RUN“ 
RSXDDEMO' gestartet 
werden. 

Bei Bestword benutzen 
Sie das Ausrufezeichen 
(!) um das Menü zu wech- 
seln. Dieser Hinweis fehlt 
tatsächlich in der Pro- 
grammbeschreibung, wäh- 
rend der Programmbenut- 
zung im Eingabemodus 
ist allerdings ein entspre- 
chender Hinweis am un- 
teren Bildschirmrand zu 
sehen. 


VERBESSERUNGEN 
ZUR DISKETTEN- 
BIBLIOTHEK — 

NUN AUCH FÜR 
VORTEX UND VDOS 


Die Diskettenbibliothek 
aus Heft 9/87 finde ich 
recht gut. Leider ist es 
nur für die normalen 
3-Zoll-Disketten und 
AMSDOS ausgelegt. Ich 
besitze aber ein Vortex- 
Zweitlaufwerk, arbeite 
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also fast nur noch mit 
5.25-Zoll-Disketten und 
VDOS, wie wahrschein- 
lich viele andere auch. 
Das veranlaßte mich, das 
Programm etwas abzuän- 
dern, damit es für beide 
Diskettenformate und 
VDOS zu gebrauchen ist. 
Folgende Maßnahmen 
wurden getroffen: 
Zeile 20: 
d$(65) und m(65) wur- 
den auf d$(130) und 
m(130) erhöht. 
Zeile 140: 
Auch hier wurde der Wert 
von 65 auf 130 erhöht. 
Zeile 30: 
sz$ wurde dem DMP 2000 
Drucker angepaßt. 
Zeile 700: 
Bei meinem VDOS, Ver- 
sion 2.0-X, beginnt die 
Abspeicherung der Direc- 
tories nach CAT bei der 
Adresse &9E79. Die ange- 
gebene Adresse &9E7D 
muß also dahingehend ab- 
geändert werden. Viel- 
leicht ist dies bei ande- 
ren VDOS-Versionen an- 
ders. Durch Aufruf von 
YXMON kann man die 
richtige Adresse aber 
leicht ausfindig machen. 
Vorher muß allerdings mit 
CAT das Directory einer 
Diskette in den Computer 
eingespeichert werden. 
Bei der Einspeicherung 
der Directories in den 
Rechner können sich 
chaotische Zustände er- 
geben, wenn man nach ei- 
nem längerem Directory 
ein kürzeres abspeichert. 
In diesem Fall bleiben 
Reste des längeren Direc- 
tories stehen und werden 
vom kürzeren mit über- 
nommen. Ich habe daher 
die Zeile 700 unterteilt 
und ein Löschprogramm 
mit eingearbeitet. Zuvor 
muß ich aber noch erwäh- 
nen, daß ich für fr=PEEK 
(49088) bei VDOS keine 
Ersatzadresse gefunden 
habe. Da der noch ‚‚freie 
Diskettenspeicherraum“ 
aber nach jedem CAT aus- 
geworfen wird, habe ich 
auf die zusätzliche Anga- 
be verzichtet. Die Zeile 
700 wurde daher folgen- 
dermaßen abgeändert: 
700 ...PRINT“ einlegen, 
(ENTER)“ 
1704 FOR e=&9E79 TO 


SCHNEIDER aktiv 
LESERBRIEFE 


Postlach 116] 
8044 Unterschleissheim 


&A5O00: POKE e,0 
:NEXT 
706 GOSUB 4990:CLS 
:CAT:BORDER br:i 
=&9E79:kK=0 
Dadurch, daß die Angabe 
der KByte ‚‚unterschla- 
gen‘ wird, können auch 
in anderen Zeilen einige 
Befehle entfallen, etwa 
in 760, 3020, 3510 und 
5000. In Zeile 1450 ist 
TAB(20) überflüssig. ' 
TAB(25) wurde von mir 
auf TAB(14) erniedrigt, 
damit die Diskettenkenn- 
zeichnung näher beim 
Filenamen steht. Ich be- 
nutze als Kennzeichnung 
bei den 5.25-Zoll-Disket- 
ten 01, 02 und so weiter, 
bei den 3-Zoll-Disketten 
1A, 1B usw. 
Wichtig ist noch eine Er- 
gänzung in Zeile 1830, 
um bei VDOS-Betrieb ei- 
ne EOF-Störung (Pro- 
grammabbruch) zu vermei- 
den. 
1830 WHILE NOT EOF: 
INPUT#9 f(s,0): 
:DERROR 2: f(s,0) 


Um wahlweise die Verwal- 
tung der 3-Zoll- oder der 
5.25-Zoll-Disketten auf- 
rufen zu können, wurde 
in das Programm als Zei- 
le 15 und 16 die Lauf- 
werksumschaltung einge- 
arbeitet. Günstig ist es, 
das Programm auf einer 
3-Zoll- sowie auf einer 
5.25-Zoll-Diskette abzu- 


‘ speichern, um von jedem 


Laufwerk aus einen Start 
zu ermöglichen. 

16 INPUT“ Laufwerk 3 
oder 5.25-Zoll (A/B)“ ,a$ 
16 IF a$="A“ or a$="a“ 
then |A else !B 

Vielleicht sollte man 

noch erwähnen, daß man 
beim Blättern (Haupt- 
menü: Liste, Seiten) 
durch Benutzen der 
SHIFT- und CTRL-Tasten, 
zusammen mit den Cur- 
sortasten ‚links‘ und 
„rechts“ auch 2er- und 
4er-Sprünge machen kann. 
Es wurde in der Programm- 
beschreibung nicht er- 
wähnt. 

Hans Benker, 

9011 Höhenkirchen 
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Vielen Dank für die Ände- 
rungsvorschläge an der 
Diskettenbibliothek von 
Thomas Naumann. Die 
Anpassung an das VDOS 
ist sicher für all jene inter- 
essant, die über die glei- 
che Konfiguration verfü- 
gen. 


KEIN ZWEITER TEIL 
ZU NOTENVERWAL- 
TUNG AUS 

SPEZIAL 1/87 


In Ihrem ersten Sonder- 
heft veröffentlichten Sie 
das Programm ‚‚Noten- 
Verwaltung‘‘, welches 
auf meinem CPC 464 
bestens läuft. Sie kündig- 
ten in der Programmbe- 
schreibung einen ‚später 
folgenden Programmteil 
B‘ an. Inzwischen ist 
einige Zeit vergangen, 
zwei weitere Sonder- 
hefte sind von Ihnen her- 
ausgegeben worden, aber 
ich vermisse immer noch 
den angekündigten Pro- 
grammteil B. Daher nun 
meine Frage: Wann wird 
dieses Listing veröffent- 
licht, oder besteht Ihrer 
Meinung nach kein Be- 
darf mehr? 

Ebenfalls im ersten Son- 
derheft erschien das Pro- 
gramm „Briefmarken“, 
welches die Eingabe von 
maximal 200 Marken er- 
möglicht. Ich habe eine 
Vortex-Speichererweite- 
rung und würde dieses 
Programm gerne vergrö- 
ßern. Können Sie mir da- 
zu ein paar Tips geben? 
Kurt Hohmann, 

A-3370 Ybbs 


Der Teil B des Notenpro- 
gramms wurde bereits in 
den ersten Programmteil 
integriert, was in der Pro- 
grammbeschreibung nicht 
berücksichtigt wurde. Ein- 
ziger Schwachpunkt die- 
ser Methode war die Kor- 
rektur einzelner Noten. 
Dabei kann man sich je- 
doch behelfen, indem 

man die alten Daten ein- 
fach überschreibt. 

Die Speichererweiterung 
für die Briefmarken-Ver- 
waltung nutzt alleine nichts, 
sie muß vom Programm aus 
angesprochen werden. 
Bitte haben Sie Verständ- 
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nis, daß wir aus Zeitgrün- 
den solch tiefgreifende Än- 
derungen an Leserprogram- 
men nicht vornehmen kön- 
nen. Ganz abgesehen da- 
von, daß das Listing dann 
nicht mehr für jene nutzbar 
gewesen wäre, die ohne 
Speichererweiterung aus- 
kommen wollen. Aber hier 
ein paar Tips: Versuchen 
Sie einmal, den DIM-Befehl 
in Zeile 280 zu erhöhen. 
Sollte jedoch einmal der 
Speicher des CPC voll sein, 
dann istim Normalfall 
Schluß. Um die Daten in 
eine andere Bank abzule- 
gen, muß das Programm 
völlig überarbeitet werden. 


PRAKTIKEN IM 
VERSANDHANDEL 


Am 27.8. dieses Jahres be- 
stellte ich bei einem Soft- 
wareversand ein Pro- 
gramm. Ich bezahlte schon 
im voraus mit Eurocheque, 
mit welchem mein Konto 
am 1.9. belastet wurde. 
Zwei Tage wartete ich auf 
das Eintreffen des bestell- 
ten Programmes, doch ich 
wartete vergebens. Nach 
einer Woche rief ich bei 
der Firma an. Man sagte 
mir (Zitat): „...bei EC- 
Schecks warten wir prin- 
zipiellnoch 14 Tage...‘“. 
Ich bestand auf einer so- 
fortigen Lieferung, doch 
man wollte sich an diese 
Vorschrift halten. 

Mit der Tatsache fand ich 
mich halt ab. Am 15.9. 
erhielt ich dann endlich 
das Programm. Ich staun- 
te nicht schlecht, als es 
nicht lief. Man hatte ein 
Programmteil nicht abge- 
speichert. Als ich anrief, 
bekam ich zur Antwort, 
daß dies halt einmal vor- 
kommen könne. 

Ich finde es nicht gut, 
wenn die Firmen damit 
werben, daß eine EC-Vor- 
auszahlung die Lieferung 
beschleunige und eher 

das Gegenteil der Fall ist. 
Andreas Ludwig, 

6501 Budenheim 


Ein paar Telefongesprä- 
che mit Versandhändlern 
machten uns klar, daß 
fast alle Firmen bei 
Scheckzahlungen warten, 
bis der Betrag auf ihrem 


SCHNEIDER 
MAILBOX 


24 Stunden online: 


Sysop King 
Parameter 8N 1 


Tel. 


089/ 


183951 


Konto gutgeschrieben ist. 
Dies muß angeblich so 
sein, da einige ‚‚faule 
Kunden‘ ihre eigene Zah- 
lungsmoral haben. In der 
Regel beschleunigt nur die 
Bar-Vorauszahlung oder 
die kostspieligere Nach- 
nahmebestellung eine Lie- 
ferung. Deshalb halten es 
auch die meisten Versand- 
betriebe mit der Ehrlich- 
keit und werben in die- 
sem Fall mit schnellem 
Service. Problematisch 
werden solche Verzöge- 
rungen aber, wenn die Fir- 
ma nicht korrekt arbeitet 
und mangelhafte Produk- 
te an den Mann bringt. 


SOUNDMASTER LÄUFT 
AUCH AUF DEM 
CPC 464 


Ich habe das Programm 
„Soundmaster“ auf dem 
Schneider CPC 464 einpro- 
grammiert und habe fest- 
gestellt, daß es bei einer 
geringfügigen Änderung in 
Zeile 4590 auch auf dem 


CPC 464 einwandfrei läuft. 


Zwei Möglichkeiten bieten 

sich als Ersatz an: 

4590 MOVE x,y:PEN3: 
...USW. 


oder: 

4590 MOVE x,y:INK 3,5: 
„.USW. 

K.-H. Baumgartner, 

5900 Siegen 1 


Vielen Dank für den Tip, 
der sicherlich auch andere 
Leser interessieren wird. 


DIE FRAGE NACH 
DER HARDCOPY 


Auf einigen Discs Ihrer 
Hefte sind Programme oh- 
ne Druckroutine enthal- 
ten, z.B. beim Ostfriesen- 
rechner. Im Sonderheft 
2/87 gibt es jedoch eine 
„Superhardcopy‘“‘. Des- 
halb meine Fragen: 

l. Ist es möglich, diese 
Hardcopy in eines dieser 
Programme einzubauen? 
Wenn ja, wie geht dies, 
wenn das Programm auch 
auf der gleichen Disc ent- 
halten ist? 

2. Gibt es noch andere 
Hardcopys? Ich habe mir 
nur die Hefte des Jahres 
1987 zuschicken lassen. 
3. Wäre es nicht möglich, 
in einem Ihrer nächsten 
Hefte die Einbindung sol- 
cher und anderer Hard- 
copys vorzuführen? 

Fritz Warth, 

6800 Mannheim 31 


Sie müssen die Superhard- 
copy ab Zeile 3000 abtip- 
pen und unter einem Na- 
men (HCOPY.BAS) abspei- 
chern. Im Ostfriesenrech- 
ner muß dann die Zeile 
en folgendermaßen lau- 


4580 ag= ae HE: as 
“OR a$=D“ 


a !HARDCOPY 
Wenn Sie nun zuerst das 
HCOPY.BAS-Programm 

starten und anschließend 
(ohne zwischenzeitlichen 
RESET) den Rechner, 
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dann wird an der betref- 
fenden Stelle eine Hard- 
copy ausgeführt. Wir wer- 
den in Schneider aktiv si- 
cherlich noch öfter auf 
dieses Thema zu sprechen 
kommen. 


„NOTENSPIEGEL“ 
OHNE AUSDRUCK 


Das von Ihnen abgedruck- 
te Programm Notenspie- 
gel in Heft 10/87 hat mir 
sehr gut gefallen und ist 
für mich auch sehr nützlich. 
Als ich aber versucht habe, 
den Bildschirm abzudruk- 
ken, hat sich der Druck- 
kopf alle 5 Minuten von 
rechts nach links bewegt, 
leider aber nicht gedruckt. 
Ich habe das Programm 
sehr sorgfältig nach Ab- 
schreibfehlern durchsucht. 
An meinem Drucker kann 
es nicht liegen, denn ich 
habe einen DMP 2000, für 
den das Programm ja ge- 
schrieben ist. Die Druck- 
routine selbst konnte ich 
allerdings nicht finden, da 
kein Befehl wie z.B. 
PRINT #8 auftaucht. Ich 
hoffe, Sie können mir hel- 
fen, den Fehler zu finden. 
Gunnar Thiem, 

5204 Lohmar 


Beim Programm Notenspie- 
gel gibt es keine #8-Befeh- 
le, das Listing arbeitet mit 
einer Hardcopy-Routine. 
Diesen Teil finden Sie ab 
Zeile 880, bis in Zeile 
1150 der Ausdruck ge- 
startet wird. Wir bitten 
Sie, die Datazeilen 910- 
1140 noch einmal zu 
überprüfen, da Notenspie- 
gel in der ausgedruckten 
Version einwandfrei 
läuft. 


DIE REIHENFOLGE 
DER TEILPROGRAMME 
BEI CRICKS 

(SPEZIAL 2/87) 


Seit Ostern 1987 sind un- 
sere Kinder Besitzer eines 
Schneider CPC 6128. Der 
Wunsch, selbst Spiele aus 
Zeitschriften abzuschrei- 
ben ist sehr groß, aber 
auch die Enttäuschung, 
wenn nach vielen Versu- 
chen, Kontrollen und wie- 
der Neueingaben ein Spiel 
einfach nicht läuft. So 


geschehen bei Cricks aus 
dem Sonderheft 2/87. 

Zur Erläuterung: Wir arbei- 
ten mit Disketten und tipp- 
ten zunächst Listing Seite 
13/14 ein und speicherten 
ab. Danach wurde der 
Basic-Lader für Cricks ge- 
tippt, abgespeichert und 
mit RUN gestartet, siehe 
da, das Spiel läuft nicht, 
es erscheint zwar das Vier- 
eck, aber die Datei wird 
nicht gestartet. Beim Auf- 
listen der Daten müssen 
wir feststellen, daß ent- 
weder die Daten des Basic- 
lader verschwunden sind 
oder die Daten von 10 bis 
950 des ‚„‚Cricks.bin‘““. Ich 
wäre Ihnen dankbar, wenn 
Sie uns weiterhelfen könn- 
ten, denn ich möchte mei- 
nen Kindern die Freude 
am Abschreiben und 
Starten eines selbst ge- 
tippten Listings erhalten. 
Gerda Koberg, 

4400 Münster 


Auf das Durcheinander 
mit Lade- und Binärpro- 
gramm wollen wir in die- 
sem Heft noch etwas ge- 
nauer eingehen. 

Hier nur eine erste Hilfe: 
Nach Ihrer Beschreibung 
vermuten wir einen Feh- 
ler beim Abtippen. Wir 
möchten deshalb ein paar 
Tips zur Vorgehensweise 
bei Cricks geben. Zuerst 
wird das Listing auf den 
Seiten 11/12 abgetippt 
und gespeichert. Der Name 
kann beliebig vergeben 
werden. Nach einem Start 
erzeugt dieses Listing das 
Programm “CRICKS.BIN“ 
und speichert es automa- 
tisch ab. Nunmehr sollte 
das Listing auf Seite 13/14 
abgetippt und abgespei- 
chert werden. Wenn dieses 
ArOp Tann gestartet wird, 
sucht es nach dem Binär 
file (CRICKS.BIN) und 
liest es ein. Wenn keine 
Tippfehler gemacht wur- 
den, läuft das Spiel ein- 
wandfrei. 


„PROGRAMMLISTER“ 
AUS 4/87 AUCH FÜR 
DAS VORTEX- 
LAUFWERK 


Das Listing ‚‚Programm- 
lister‘ läßt sich in seiner 
ursprünglichen Form lei- 
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der nicht mit dem Betriebs- 
system VDOS (80 Spuren) 
einsetzen. Es stürzt ab, so- 
bald die Option DISKET- 
TE aufgerufen wird. 

Will man - vielleicht we- 
gen der relativ preiswerten 
Disketten — doch das Vor- 
tex-Laufwerk benutzen, 
so ist dies mit Einschrän- 
kungen möglich. Es muß 
auf das Betriebssystem 
AMSDOS umgeschaltet 
werden. Dashat zur Folge: 
40 Spuren und einseitige 
Benutzung der Disketten. 
Darüber hinaus muß im 
Programm PR.0O01 (Haupt- 
programm) noch ein win- 
ziger Eingriff vorgenom- 
men werden. In der Zeile 
50 ist am Zeilenanfang der 
RSX-Befehl !A in :B zu 
ändern. Der Rest der Zeile 
wird in der vorliegenden 
Form übernommen. 

Aber genug für Insider. 
Der Rest — weil ausführ- 
licher — ist für die Einstei- 
ger auf dem Vortex-Lauf- 
werk bestimmt. 

l. Betriebssystem mit dem 
RSX-Befehl HAMSDOS 
umschalten. 

2. Hauptprogramm von 
der 3-Zoll-Diskette mit 
LOAD ‘“Name“ einladen. 
3. Mit dem RSX-Befehl 

ıB auf das Vortex-Lauf- 
werk umschalten. 
4.SAVE “Name bringt 
das Programm auf die 
5.25-Zoll-Diskette. 

5. Wieder auf das AMS- 
DOS-Laufwerk mit dem 
Befehl !A zurückschalten. 
6. Das Haupt-Programm 
mit LOAD “PR.OOI ein- 
laden. 

7. Die eingangs beschriebe- 
ne Änderung in Zeile 50 
vornehmen. 

8. Auf das Vortex-Lauf- 
werk mit dem Befehl !B 
umschalten. 

9. Mit SAVE “PR.001 
dieses File ebenfalls auf 
die 5.25-Zoll-Diskette ab- 
sichern. 

Bei den vorgenannten Ar- 
beitsschritten können bei- 
de Disketten in ihrem 
Laufwerk verbleiben. 
RUN “PR.BAS“ startet 
das einsatzbereite Pro- 
gramm auf dem Vortex- 
Laufwerk. Es ist natürlich 
klar, daß nach jedem 
RESET, bzw. nach dem 
Aus- und Einschalten des 


Rechners auf das Betriebs- 
system AMSDOS umge- 
schaltet und anschließend 
das Laufwerk B angewählt 
werden muß, wenn das 
Programm PR.BAS zum 
Einsatz kommen soll. 
K.-H. Friedrichs, 

3500 Kassel 


Vielen Dank für den Hin- 
weis. Wir freuen uns im- 
mer, wenn Leser die Pro- 
gramme unserer Autoren 
verbessern können. 


PC 1512 AUCH FÜR 
6- BIS 14JÄHRIGE 


Nachdem MS-DOS-Rech- 
ner auch im häuslichen 
Bereich zu finden sind, 
gibt es nun eine Edition 
mit Lern- und Spielpro- 
grammen für 6- bis 14jäh- 
rige Kinder. Es handelt 
sich dabei um 10 Program- 
me (zu je 20,— DM), von 
denen hier nur einige her- 
ausgegriffen sind. 

„Das traurige Kind“ ist 
ein Adventure mit sozia- 
lem Hintergrund unter 
Verzicht auf jede Art von 
Monstern. ‚„‚Wortpuzzle‘“ 
verlangt vom Anwender, 
aus gemischten Buchsta- 
ben das richtige Wort wie- 
der zusammenzusetzen. 
Die ‚„Buchstabenschlange“ 
ähnelt dem üblichen Wurm- 
spiel der Homecomputer. 
Das Alphabet (oder eine 
Ziffernfolge) muß in der 
richtigen Reihenfolge ‚‚ge- 
fressen‘ werden. Aus dem 
mathematischen Bereich 
sind Übungsprogramme zu 
den unterschiedlichsten 
Aufgaben vorhanden. Bei 
allen Programmen wurde 
besonderer Wert auf die 
pädagogisch richtige Reak- 
tion bei Fehleingaben ge- 
legt. Die Vertriebsadresse 
für den, der sich weiter in- 
formieren will, lautet: 
Freier, 
Engelbert-Kraus-Str. 25, 


' 8709 Rimpar 


KEINE KASSETTEN- 
KOPIEN MIT DEM 
DISC-MONITOR 


Ich habe das Programm 
Disc-Monitor abgetippt 
und möchte Backup-Ko- 
pien auf Diskette erstel- 
len. Bis heute ist es mir 
nicht gelungen, mit die- 
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sem Programm nur eine 
Backup-Kopie auf Kasset- 
te zu erstellen. Allerdings 
kann ich jederzeit mit 
SAVE ein Programm auf 
Diskette sichern. 

Günther Jung, 

7988 Wangen 


Das Programm Disc-Moni- 
tor speichert den Disket- 
teninhalt korrekt ab und 
lädt ihn bei Bedarf wie- 
der ein. Jedoch sind die 
abgespeicherten Daten auf 
Band nicht lauffähig, da 
sie headermäßig anders 
verwaltet werden. Der 
Header bei Kassetten-Pro- 
grammen befindet sich je- 
weils vor den Datenblök- 
ken, auf Diskette befindet 
sich der Programmkopf je- 
doch im Directory. Soweit 
die grobe Unterscheidung. 
Der Menüpunkt beim Di- 
rectory-Manager dient nur 
zur Einsparung der teuren 
Disketten. Um die so abge- 
speicherten Programme 
wieder lauffähig zu machen, 
müssen Sie also erst wieder 
auf Diskette zurücktrans- 
feriert werden. Das Ver- 
fahren gleicht den CP/M- 
Befehlen CSAVE und 
CLOAD. 


HILFE FÜR TURBO- 
PASCAL PROBLEME — 
DIALOG (HEFT 10/87) 


Im Heft 10/87 veröffent- 
lichten wir eine Anfrage 
zu Turbo-Pascal. Mittler- 
weile kam von Günther 
Bergdolt eine ausführliche 
Lösung, die leider über 5 
Seiten reicht. Wir haben 
sie inzwischen weiterge- 
leitet, können den Brief 
— seiner Länge wegen — 
aber nicht hier veröffent- 
lichen. Wer unter den glei- 
chen Sorgen leidet wie 
Herr Wischerath, soll bit- 
te an den Verlag schrei- 
ben und Rückporto bei- 
legen. 


Nächsten 
Monat 
kommt 


Schneider 
Welt! 


Fremde 
Color- 
monitore 


Viele CPC-Besitzer haben sich einen 
CPC mit Grün-Monitor zugelegt. 
Die Farbenpracht, die der CPC bie- 
tet, kann bei dieser Gerätekonfigu- 
ration aber nicht auf den Bild- 
schirm gebracht werden. Die Far- 
ben erscheinen dort nur als Grau- 
(Grün-)Abstufungen. Aber auch wer 
einen CPC ohne Monitor, dafür aber 
mit einer Modulator-Einheit (MPSI1 
oder 2) sein Eigen nennt, möchte 
evtl. eine bessere — als die auf einem 
Fernsehbildschirm erscheinende — 
Darstellung haben. Falls also der 
Wunsch nach guter Farbdarstellung 
besteht, gibt es verschiedene Mög- 
lichkeiten für CPC-Besitzer: 
a) Zusätzliche Anschaffung eines 
CPC-Farbmonitors CTM644 
b) Anschaffung des Modulator-Bau- 
steines MPS] oder MPS2 
c) Adaption eines Fremdmonitors 
Punkt a: Hier gibt es wenig zu 
schreiben. Unter Umständen könn- 
te es zwar schwierig sein, diesen 
Monitor mit der integrierten Strom- 
versorgung zu beschaffen, aber der 
Anschluß usw. ist völlig problemlos. 
Punkt b: Mittels des Modulator-Bau- 
steines MPS2, der auch gleichzeitig 
die Stromversorgung für den CPC 
beinhaltet, können Bildschirmausga- 
ben auf dem heimischen Fernseh- 
gerät erfolgen. Im Regelfalle wird 
dabei der RGB-Ausgang des CPC 
mit dem Modulatorteil verbunden 
und das Bildsignal hochfrequenz- 
mäßig (also über die Antennenbuch- 
se) in das Fernsehgerät eingespeist. 
Die Qualität der Darstellung ist in 
den meisten Fällen aber nicht sehr 
befriedigend. Arbeiten im 80-Zei- 
chen-Mode artet dabei leicht in ein 
Ratespiel aus. Die Zeichen sind oft 
nur schwer zu identifizieren. Es 
muß aber nicht so sein! Viele moder- 
ne Fernsehgeräte haben einen 
SCART-Eingang und deshalb kön- 
nen die Farbsignale — ohne die 
durch die Umsetzung auf Hochfre- 
quenz entstehenden Qualitätsver- 
luste — auf den Bildschirm ge- 
bracht werden. Doch davon später. 
Zu Punkt c: Der zwar etwas auf- 
wendige Anschluß eines Fremd- 
Farbmonitors bringt in den meisten 
Fällen die beste Bildqualität. Erfor- 
derlich ist aber, daß der CPC mit 
Spannung versorgt wird. Diese Ver- 
sorgung kann entweder mittels ei- 
nes selbstgebauten Netzteiles, mit- 


SERVICE 


Verbindungs — Skizze Scart / CPC 
Stecker von der Verdrahtungsseite aus betrachtet 


tels des CPC-Monitors oder beispiels- 
weise durch den Modulator-Bau- 
stein erfolgen. 

Beim Punkt a) dürften keine Proble- 
me auftreten. Gleiches gilt auch für 
den Punkt b), sofern die Bildsignale 
über den Antenneneingang des Fern- 
sehgerätes geführt werden. Will man 
aber im Fall b) ein Fernsehgerät 
über die SCART-Buchse ansteuern 
oder wie im Falle c) einen Fremd- 
monitor anschließen, dann sind ein 
paar Informationen erforderlich, 
die wir Ihnen nun geben wollen. 
Die Entwicklung der Computer und 
auch der Monitore geht mit Riesen- 
schritten vorwärts. So sind heute 
die Preise für die ‚„‚Farb-Computer- 
Glotzen“ bereits in Größenordnun- 
gen gerutscht, die vor ein, zwei Jah- 
ren noch undenkbar waren. 

Aus diesem Grund haben wir ein- 
mal den Versuch unternommen, ei- 
nen preisgünstigen, aber dennoch 
hochwertigen Farbmonitor eines 
anderen Herstellers an den CPC an- 
zuschließen. 

Unsere Wahl fiel dabei auf einen Mo- 
nitor der Firma High-Screen, der 
Anschlußmöglichkeiten für RGB- 
Digital-, RGB-Analog- und FBAS- 
Signalquellen bietet. 

Dieser Monitor wird — in etwas ab- 
gewandelter Form — zum Beispiel 
für den Commodore-Amiga angebo- 
ten. Technisch betrachtet, unter- 
scheidet sich der reguläre Amiga- 
Monitor 1081 nur durch den feh- 
lenden Stereo-Kanal und durch eine 


15 


etwas andere Gehäuseform vom 
High-Screen-Monitor. Ein Sichtgerät, 
das den gehobenen Grafikansprü- 
chen eines Amiga gerecht wird, soll- 
te also auch in Verbindung mit dem 
CPC ein besseres Bild bieten als ein 
Original-Schneider-Monitor. 
Eingefleischte CPC-Fans werden 

sich vielleicht nun etwas daran stö- 
ren, daß wir versuchten ‚fremd zu 
gehen‘, aber wir haben eben etwas 
weiter gedacht und mal einen et- 
was moderneren Monitor angeschlos- 
sen, der auch für andere und viel- 
leicht später noch kommende Com- 
puter Verwendung finden kann. Es 
muß aber nicht unbedingt dieser Mo- 
nitor sein, für andere Farbmonitore 
oder auch für ein Fernsehgerät mit 
RGB-Eingang gilt analog das gleiche. 


ANSCHLUSS ÜBER DIE 
SCART-BUCHSE 


Es ist schon schlimm, daß jeder Com- 
puter-Hersteller eigene Anschluß- 
stecker und Buchsen verwendet, da- 
mit ja nichts kompatibel ist. Selbst 
an den Monitoren sind die unter- 
schiedlichsten Buchsen und auch 
noch mit unterschiedlichster Bele- 
gung vorhanden! Zum Glück hat sich 
in Europa aber ein Standard-An- 
schluß für Fernsehgeräte und Video- 
Recorder etabliert, der SCART-An- 
schluß. Dieser wird manchmal auch 
als EURO-Anschluß bezeichnet. 
Da ein normales SCART-Verbin- 
dungskabel aber nicht nur teuer, 2» 
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sondern auch nicht direkt anschließ- 
bar ist (der Ausgang am CPC ist 
eben keine SCART-, sondern eine 
6polige DIN-Buchse in 270 Grad- 
Anordnung mit Mittelkontakt), ha- 


und den 6poligen DIN-Stecker ha- 
ben wir uns in einem Elektronik- 
Geschäft besorgt. Nachdem die 
Verdrahtung — wie in der Verbin- 
dungsskizze gezeigt — durchgeführt 


ben wir beschlossen, das Verbindungs-war, brauchten wir nur noch den 


kabel selbst herzustellen. 

Am Monitor-Anschluß des CPC ste- 
hen (neben Ground, also dem Mas- 
seanschluß) nur die Monitorsignale 
(R,G,G,Sync und Luminanz) an. 
Diese Signale müssen aber nicht un- 
bedingt dem CPC-Monitor oder dem 
Modulator, sondern können genau- 
sogut einem anderen Sichtgerät zu- 
geführt werden. 

Für unsere Anschlußversuche haben 
wir zum einen den Schneider-Grün- 
Monitor und zum anderen den 
Modulator-Baustein als „‚Spannungs- 
versorger‘ verwendet. 

In beiden Fällen unterblieb also die 
Verbindung der Bildsignale mit der 
Versorgungsspannungseinheit. Spä- 
ter haben wir auch noch mit einem 
eigenen Netzteil gearbeitet und er- 
wartungsgemäfßs klappte auch dies 
ausgezeichnet. 


DOCH NUN ZUM 
VERBINDUNGSKABEL 


Bei gröfseren Entfernungen zwischen 
Computer und Monitor ist es ratsam, 
die Verbindung mittels gegenander 


abgeschirmten Leitungen durchzufüh- 


ren, da sonst zwischen diesen kapazi- 
tive Kopplungen auftreten könnten, 


die das Bild schlechter werden lassen. 


Wir haben bei unserem ersten Ver- 
such, da ein 4adriges Verbindungs- 
kabel mit gegeneinander geschirm- 
ten Leitungen nicht vorrätig war, ein- 
fach 4 dünne Koaxialkabel (Typ 

RG 174),je ca. 1 m lang, als Verbin- 
dungskabel eingesetzt. Die Audio- 
(Ton-)Signalverbindungen haben wir 
erst später hergestellt. Den SCART- 


Farbmonitor mittels dieses Kabels 
mit dem CPC verbinden. Für unsere 
kleinen Lötarbeiten zur Herstellung 
der Verbindung wurden wir mit ei- 
ner wunderschönen Farbdarstellung 
belohnt, die weit über der Qualität 
des CPC-Monitors lag. Auch die 80- 
Zeichen-Darstellung ist so gut, dafs 
man damit problemlos arbeiten 
kann. 

Falls einigen Lesern bei der Betrach- 
tung der Verbindungen auffällt, dafs 
wir die Synchronisationsleitung 
nicht verbunden haben, dann sei die- 
sen mitgeteilt, dafs die Synchronisa- 
tionssignale auch im Luminanz- 
Signal enthalten sind und da dieses 
über Pin 20 mit dem FBAS-Eingang 
verbunden wurde, kann die Verbin- 
dung des Sync-Signales unterbleiben. 
Für diejenigen, die auch wissen wol- 
len, wie teuer uns das Kabel mit 
Steckern kam, hier eine kleine Über- 
sicht: 


SCART-Stecker DM 4,50 
DIN-Stecker DM 1,20 
4 m Koaxkabel DM 6,- 
Gesamtpreis also ca. DM 12,-— 


ES GEHT AUCH ANDERS 


Wer einen Farbmonitor besitzt und 
beispielsweise zum Zwecke der Text- 
verarbeitung einen Monochrom-Mo- 
nitor anschließen will, kommt mit ei- 
ner sehr einfachen Verkabelung aus. 
Für das Bild muß lediglich die Signal- 
leitung Luminanz und die GND-Lei- 
tung zum Fremdmonitor geführt wer- 
den. Im Luminanz-Signal sind alle er- 
forderlichen Signale für den Betrieb 
eines Monochrom-Monitors enthalten 


Tabelle zur Herstellung eines Verbindungskabels: 


CPC-Monitor-Anschluß/SCART 


Signal CPC-Ausgang SCART-Stecker 
Rot Pin 1 Pin 15 

Grün Pin2 Pin 11 

Blau Pin 3 Pin 7 

Sync Pin 4 nicht verbinden 
Ground Pin5 Pin 5/13/17 
Luminanz Pin 6 Pin 20 

Stereo R Klinkenstecker Pin 2 

Stereo L laut Pin 6 

Ground CPC-Handbuch Pin 4 


Verbindungsskizze CPC/SCART (Stecker von der Verdrahtungsseite aus betrachtet) 
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Zusätzlich zu der bei uns durchge- 
führten (anfänglichen) Verbindung 
kann man selbstverständlich auch 
noch die Tonverbindungen herstel- 
len. Hierzu muß der Stecker für 
den CPC laut Handbuch ange- 
schlossen werden. Der linke Kanal 
muß am Scartstecker an Pin 6 und 


SOLL’S GLEICH IN 
STEREO SEIN? 


der rechte Kanal an Pin 2 angeschlos- 
sen werden. Die Masse für die Ton- 
signale kann ggf. entfallen. Wir ha- 
ben sie aber an den Anschluß 4 des 
SCART-Steckers geführt. Nach der 
kompletten Verkabelung haben wir 
noch bemerkt, daf kaum ein Pro- 
gramm -— genauer gesagt, wir konn- 
ten überhaupt keines finden — von 
den Stereo-Möglichkeiten des CPC 
Gebrauch macht. Eigentlich schade! 


HINWEIS BEI BENUTZUNG 
EINES FERNSEHGERÄTESMIT 
SCART-ANSCHLUSS 


Unter Umständen mufs noch eine 
Schaltspannung von 12 Voltan den 
Pin 8 des SCART-Anschlusses ge- 
führt werden, damit das Bild sicht- 
bar wird (dies war beim vorhande- 
nen Monitor nicht erforderlich!). 


ERGEBNISSE UNSERER 
VERKABELUNGEN 


Bei der ersten Kabel-Version haben 
wir auf der DIN-Stecker-Seite nur 
ein Abschirmgeflecht der Koax- 
Leitungen mit dem Pin 5 des DIN- 
Steckers verbunden und auf der 
SCART-Seite dann einfach alle Ab- 
schirmgeflechte auf Pin 5 gelötet. 
Bei der zweiten Version 2 wir 
dann für die Bildsignale ein Spoliges 
Kabel (inklusive Abschirmgeflecht) 
verwendet, bei dem die einzelnen 
Adern nicht gegeneinander ge- 
schirmt waren. Zusätzlich haben 
wir den Tonausgang des CPCs mit- 
tels eines normalen Stereo-Kabels 
zum SCART-Anschluß geführt. 

Da dieses Kabel nur ca. | m lang 
war, konnten wir keinerlei Qualitäts- 
einbußen gegenüber der ersten Ver- 
sion feststellen. Das Bild, das auf 
dem Monitor zu sehen war, übertraf 
die Qualität der Darstellungen des 
Original-Monitors bei weitem. Es 
waren — bei Bildern — oft Details 
zu sehen, die auf dem Original-Moni- 
tor bereits in einem Farben-Misch- 
masch untergegangen waren. Beim 
Arbeiten im 80-Zeichen-Mode waren 
alle Zeichen sauber und klar zu le- 
sen. Die Zeit zur Herstellung des 
Verbindungskabels war in jeglicher 
Hinsicht gut investiert. LM 
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Statistik: 

Graue Theorie 
oder praktische 
Anwendung”? 


Die Überschrift dieses 
Artikels haben wir eigent- 
lich schon im ersten Teil 
beantwortet. Ob man 

will oder nicht: Statistik 
hat bereits in das tägliche 
Leben Einzug gehalten. 
Mit ein paar kleinen Bei- 
spielen konnten wir klä- 
ren, daß hierbei der Com- 
puter, insbesondere der 
einfach zu bedienende 
Homecomputer, eine 
große Rolle spielt. Die 
Berechnungen, die wir 
durchgeführt haben, konn- 
ten zwar auch mit einem 
Taschenrechner vorgenom- 
men werden, doch feh- 
len hier die Speichermög- 
lichkeiten und der Um- 
fang der Werttabellen ist 
begrenzt. Dies gilt auch 
noch für das erste Bei- 
spiel des heutigen Teiles. 


STANDARD- 
ABWEICHUNG — 
DIE WURZEL DER 
VARIANZ 


Wichtiger als der Mittel- 
wert ist die Abweichung 
davon, beziehungsweise 
die Summe dieser Abwei- 
chungen. Mit der Varianz- 
berechnung haben wir be- 
reits eine Methode ken- 
nengelernt. Durchgesetzt 
hat sich jedoch eine 
Variante, die Standardab- 
weichung. Es sei gleich 
verraten, daß man hierzu 
einfach nur die Wurzel 
der Varianz ziehen muß 
(siehe Formel 1). Man 
kann die Standardabwei- 
chung als die Streuung 
der Meßwerte um ihren 
Mittelwert bezeichnen, 
ganz einfach. Was aber 

— um alles in der Welt — 
macht man mit dieser 
Zahl? Sie dient als einfa- 
ches Mittel zur Einschät- 
zung von Meßreihen. Und 
weil nicht jeder die Nor- 
malwerte (daher also 


verrechnen können, daß 
er nachweisen kann, ob 
der Versuch A in Zusam- 
menhang mit Versuch B 
steht. Der obige Satz wür- 
de dann heißen: ‚‚Die 
Verschlechterung der 
Schulnoten steht im kor- 
relativem Zusammenhang 
mit der, auf dem Fußball- 
platz verbrachten Zeit“, 


Formeln zur Standardabwelchung 


(Formel 1} 


s: Standardabweichung 


s?: Varlanz 


u Dxli)ayli)-natRy 
Lx?(l)xn «RX? 


Standard!) im Kopf ha- 
ben kann, gibt es eine 
„s-Regel‘‘, die man sich in 
nachstehender Tabelle 
noch einmal zu Gemüte 
führen kann. 

Von den Meßwerten ei- 
ner Stichprobe liegen 
normalerweise im Bereich 
(s-Regel): 

m-s; m+tsetwa 68,3% 


m —2s;m + 2setwa 95,4% 
m -3s;m + 3s etwa 99,7% 


(m = Mittelwert, s = Stan- 
dardabweichung der Meß- 
werte einer Stichprobe) 


ZUSAMMENHÄNGE 
NACHWEISEN MIT DER 
KORRELATION 


Die allereinfachste Korre- 
lation haben Sie als Kind 
bestimmt schon oft ge- 
hört. Sie lautet: ‚‚Das 
kommt davon!“ Dieser 
gehaltvolle Satz kann ei- 
nem Wissenschaftler oder 
Mathematiker natürlich 
nicht ausreichen. Er will 
das „Wovon“ kennen und 
mit unerschütterlichen 
Zahlen belegen. Hierzu 
muß er zwei Meßreihen so 


mit anderen Worten, 

„Das kommt davon!“. 
Aber Spaß beiseite, bes- 
ser läßt sich Korrelation 
nicht erklären, benutzt 
wird diese Berechnung oh- 
nehin in einem anderen, 
ernsthafterem Bereich. 
Kein Wunder, daß der 
Wertfaktor, der hierbei 
nachzuweisen ist, den Zun- 
genbrecher ‚‚Korrelations- 
koeffizient‘‘ als Namen 
trägt und daß man das Pro- 
blem lieber mit einer 
Grafik löst. 

Um zwei Meßreihen mit- 
einander zu vergleichen, 
trägt man normalerweise 
die Werte der einen Meß- 
reihe (z.B. das Gewicht 
von Personen) auf der 
x-Achse eines Koordina- 
tensystems und die Werte 
der anderen Meßreihe 
(z.B. die Körpergröße) 
auf der y-Achse ein. 

Man ordnet also jedem 
Wert des Gewichtes die 
entsprechende Größe zu. 
Ideal wäre es, wenn man 
eine lineare Beziehung 
feststellen könnte, mit der 
man jedem beliebigen Grö- 
ßenwert zuordnen könn- 
te. Dies ist jedoch bei 
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den meisten Meßreihen 
nicht der Fall. 

Es gilt also, eine Gerade 
zu finden, die durch die 
Meßpunkte derart verläuft, 
daß sie für alle Punkte 
einigermaßen repräsenta- 
tiv ist. 

Das geometrische Mittel 
der beiden Geraden nennt 
man den Korrelations- 
koeffizienten (r.). Man 
rechnet also die empirisch 
erhaltenen Stichproben- 
werte in eine lineare Funk- 
tion um, damit man mit 
den x-Werten eindeutig 
die y-Werte bestimmen 
kann. 

Ist der Korrelationskoef- 
fizient = +1, so bedeutet 
dies völlige Korrelation 
zwischen den x- und y-Wer- 
ten. Es kann dann jeder 
y-Wert eindeutig durch 

x bestimmt werden. 

Keine Korrelation besteht 
bei Werten um 0, eine ne- 
gative bei —1. 

Bei sechs Personen werden 
das Körpergewicht und 
die Größe gemessen. Man 
will feststellen, ob zwi- 
schen diesen beiden Grö- 
ßen ein Zusammenhang 
besteht. 


Person Gewicht Größe 


(kg) (m) 
1 50.2 1.58 
2 59.3 1.61 
3 65.1 1.74 
4 74.8 1.76 
5 85.3 1.79 
6 90.6 1.84 


Das Programm errechnet 
einen Korrelationskoef- 
fizienten von +0.9483 
und stellt somit eine star- 
ke Korrelation zwischen 
dem Gewicht und der 
Körpergröße fest. 

Nach Eingabe der beiden 
Variablennamen und 
Dimensionierung der 
Variablen werden in ei- 
ner umfassenden Schleife 
(von Zeile 70 — 350) die 
Summen der Werte, 
Summen von Produkten 
und quadrierten Werten 
sowie die Mittelwerte 
berechnet. (Listing 5) 
Folgende Abkürzungen 
für Variablen wurden 
verwendet: 
wanz=Wertanzahl 
xwert=Werte der x-Achse 


ywert=Werte der y-Achse 29 
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ysum=Summe aller Wer- 
te der y-Achse 
multi=Multiplikation 
xwert mit dem zugehö- 
rigen ywert 
xqua=Quadrat xwert 
yqua=Quadrat ywert 
xquasum=Summe aller 
quadrierten xwert 
yquasum=Summe aller 
quadrierten ywert 
xysum=Summe der Pro- 
dukte xwert * ywert 
xmiwert=Mittelwert aller 
xwert 
ymiwert=Mittelwert aller 
ywert 
xqmiwert=quadrierter 
xmiwert 
yqmiwert=quadrierter 
ymiwert 

Die Formel zur Korrela- 
tionsberechnung wird für 
den Computer in sechs 
Teile zerlegt (Zeile 390 — 
430). Der Zähler ist rela- 
tiv einfach zu errechnen 
und wird deshalb der 
Variablen >zaehler< in 
einem Rechengang zuge- 
ordnet. Der Nenner des 
Bruches wird durch Be- 
rechnung der beiden 
Klammern (1. Klammer 
=a, 2. Klammer=b), Bil- 
dung des Produktes von 
a*b (=c), ziehen der Wur- 
zel aus c (=d), gebildet. 
Als Ergebnis wird 
zaehler/d dividiert. 

Ein knochentrockenes 
Thema, aber, Verzeihung, 
es ging nicht anders. Des- 
halb ein kleines Rechen- 
beispiel, bei dem wenig- 
stens auf dem Papier der 
Durst gelöscht wird. Und 
weil die Biertrinker be- 
reits im ersten Teil be- 
dacht wurden, dürfen sich 
heute die Weingenießer 
und die Antialkoholiker 
freuen. 


Korrelationsberechnungen 
werden in der Wirt- 
schaft angewandt, um Zu- 
sammenhänge im Kon- 
sumverhalten zu erken- 
nen. 

Es soll zum Beispiel bei 
einem Getränkehändler 
festgestellt werden, ob 
ein Zusammenhang zwi- 
schen Wein- und Cola- 
konsum besteht. 
Folgende Verkaufszah- 
len liegen vor (Flaschen): 


Wein: Cola: 
Jan. 1800 5300 
Feb. 2000 6000 
Mrz. 1700 6200 
Apr. 2100 5700 
Mai 2200 5800 


Nach Eingabe der beiden 
Variablennamen (Wein 
und Cola) werden die 
Werte für die entsprechen- 
den Monate eingegeben. 
Der Computer berechnet 
einen Korrelationskoef- 
fizienten von —0.1067. 

Es besteht also keine 
Korrelation zwischen den 
beiden Produkten Wein 
und Cola. Es kann daher 
angenommen werden, daß 
hier zwei unterschiedliche 
Käufergruppen bestehen. 
Aus einer kausalen Bezie- 
hung kann man immer ei- 
ne Korrelation ableiten, 
jedoch aus einer Korrela- 
tion nicht immer eine Kau- 
salbeziehung. Es könnten 
nämlich noch andere Ein- 
flußgrößen bestehen, die 
die Korrelation verän- 
dern. Die Ergebnisse müs- 
sen deshalb sehr sorgfäl- 
tig überprüft und inter- 
pretiert werden. 


GRAFIK — 
EIN BILD SAGT MEHR 
ALS EINE ZAHL 


„Schön und gut‘, werden 
Sie sagen, „aber was ma- 
che ich mit irgendeiner 
Zahl, die zwischen — 1] und 
+] liegt, wenn ich kein 
Wissenschaftler bin und 
mir trotzdem Zusammen- 
hänge verdeutlichen will?“ 
Eine grafische Darstellung 
der Ergebnisse veranschau- 
licht die Zusammenhänge 
und läßt Auf- oder Ab- 
wärtsbewegungen erken- 
nen. Die Werte der einen 
Variablen werden auf der 
x-Achse, die der anderen 
auf der y-Achse eingetra- 
gen. Die Schwierigkeit be- 
steht im wesentlichen dar- 
in, einen Maßstab zu er- 
mitteln, der alle Zahlen 
auf dem Bildschirm er- 
scheinen läßt. 

Der größte Wert muß also 
innerhalb der Bildschirm- 
koordinaten liegen. Will 
man noch ein Koordina- 
tensystem einzeichnen, so 
verringern sich die Bild- 


5 "Listing 4 


I] 


’*#** Standardabweichung XXk 


28 CLS 


30 INPUT”Anzahl der Werte 


: ”swertanz 


48 DIN wert (wertanz),abweich(wertanz) ‚ab 
uquad (wertanz):CLS 
58 FOR i=1 TO wertanz 


68 PRINT;i;” Wert 


: ”,:INPUT wert(i) 


?E sum=sumtwert(i) 
80 NEXT i 


98 miwert=sum/uwertanz 


188 
I18 
128 
130 
140 
150 
) 

168 


FOR i=1 TO wertanz 
abweich(i)=miwert-wert(i) 
abwguadii)sabweich(i)”?2 
sumabgu=sumabqgutabuquad(i) 
NEXT i:CLS 
PRINT"Varianz : ”;sumabqu/ (wertanz-| 


PRINT”Standardabweichung : ”;SQR(sum 


abqu/ (wertanz-1)) 


170 


END 


5 ’ 
10 


18 


Listing 5 
’*#** Korrelation X%## 


CLS:INPUT”Name der 1.Variablen : ";x8$ 
INPUT”Name der 2.Variablen : ”;y$ 
INPUT"”Anzahl der Werte : ”;wanz 


DIM xwert (wanz),,ywert (wanz) 
DIM xqua(wanz) ,‚yqua(wanz) :CLS 
FOR i=1 TO wanz 
PRINT ;i ;”.Wert 
INPUT xwert(i) 
PRINT ;i;”.Wert ”;y$;” :”, 
INPUT ywert(i):PRINT 


”». .” .” 
;%$,; * ’ 


’-- Summe aller x- und yuwerte -- 
xsumsxsumtxwert(i) 
ysum=ysumtywert(i) 


’-- Summe aller (xwert(i)&*ywert(i))-- 
multi=sxwert(i)*ywert(i) 
xysum=sxysumtmulti:multi=d 


’ 


-- Summe der xwert/ywert Quadrate - 
xqua(i)sxwert(i)”2 
xquasum=sxquasumtxqua(i) 
yquali)=ywert(i)”2 
yquasum=yquasumtyqua(i) 
’-- Mittelwert von: xwert,yuwert, 
xqua,yqua -- 
xmiwert=xsum/wanz:ymiwert=ysum/wanz 
xgmiwert=xmiwert”2 


SERIE 


350 ygmiwert=ymiwert”2:NEXT:CLS 

360 

378 ’-- Korrelationsberechnung -- 
380’ 

390 zaehler=xysum-wanztxmiwert*ymiwert 
400 a=xquasum-wanzkxgmiwert 

410 b=yquasum-wanzkygmiwert 

420 c=axb:d=SQR(c):r=zaehler/d 

430 PRINT"Korrelationskoeffizient (r) =" 
440 LOCATE 1,15:PRINT x$:MOVE 258,308 
450 DRAW 250,1:L0OCATE 20,8:PRINT y$ 
460 MOVE 1,250:DRAW 639,252 

478 LOCATE 19,15:PRINT r 

480 CALL &BBR6 

4908 CLEAR:GOTO 18 


5 ’Listing 6 
18 ’%*Grafik/lineare Regressiontt 
20°’ 


30 CLEAR:MODE 2 

3a INPUT"Anzahl der Werte 
50 DIM xwert (wanz) ,‚ywert (wanz) :CLS 

60 FOR i=1 TO wanz 

70 PRINT;i;”.xwert : ”,:INPUT xwert(i) 
80 PRINT;i;”.ywert : ”,:INPUT ywert(i) 
90 xsum=xsumtxwert(i):ysum=ysumtywert(i) 
1008 NEXT 

1a’ 

1208 ’-- Maximalwert -- 

130 ’ 

140 xma=@:yma=8:FOR i=1 TO wanz 

150 xma=MAX(xma,xwert(i)) 

1608 yma=MAX(yma,ywert(i)):NEXT 

170 

1808 ’-- Koordinaten zeichnen -- 

190 

200 CLS:MOVE 58,55:DRAW 640,55 

210 MOVE 50,55:DRAW 508,408 


:" jwanz 


220 

230 ’-- Werte zeichnen -- 
240 

250 a=50:b=55 


260 xfaktor=538/xma:yfaktor=340/yma 
278 FOR i=1 TO wanz 
280 PLOT atrxwert(i)kxfaktor ,b+ywert(i)ky 
faktor 
290 ' 
300 '-- Skala des Koordinatensystems -- 
310 ’ 
320 TAG 
330 ’-- Skalierung -- 
340 PLOT atxwert(i)Xxfaktor ,b-2 
350 PLOT atxwert(i)*Xxfaktor,b+2 
360 PLOT a-2,b+tywert(i)kyfaktor 
370 PLOT at2,b+tywert(i)kyfaktor 
380 ’-- ersten und letzten x/y-Wert 
und 0 setzen -- 


390 MOVE 15,50:PRINT”O”; 


4080 MOVE a/2txwert(i)kxfaktor ,b-1B 
410 IF i=1 THEN PRINT xwert(1); 

428 IF i=wanz THEN PRINT xwert(wanz); 
430 MOVE a-55,btywertl(i)kyfaktor 

448 IF i=1 THEN PRINT ywert (1); 

450 IF i=wanz THEN PRINT ywert(wanz); 


460 NEXT :TAGOFF 


480 '-- Mittelwert -- 


490 ° 


508 xmiwert=xsum/wanz:ymiwert=ysum/wanz 
5I@ klzatxmiwertäxfaktor 

520 k2=b+ymiwertkyfaktor 

530 MOVE k1,k2:DRAW ki-10,k2 

540 DRAW kl+10,k2:MOVE kl,k2 

550 DRAW kl,k2+10:DRAW kl,k2-10 


36@ CALL &BBB6 


.570 


580 '-- Regressionsgerade mıy -- 


590 ’ 
608 FOR i=1 TO wanz 


610 prod=xwert(i)kywert(i) 
620 psum=psum+prod:prod=L 
630 zaehler=psum-wanzkxmiwertikymiuwerf 


640 xquad=xwert(i)”2 


650 xquadsum=sxquadsumtxquad 


660 xquad=d 


670 xgmiwert=xmiuwert”2 


680 nenner=xquadsum-wanztxgmiwert 


690 NEXT 


?@0 mxy=zaehler/nenner 


718 FOR i=1 TO wanz 


720 y(i)zmxy*X(xwert(i)-xmiwert)tymiwert 
730 IF iı)1 THEN GOTO 758 
7408 MOVE arxwert(l)Xxfaktor,bry(Il)kyfakt 


or 


758 DRAW atxwert(i)kxfaktor ,btyli)kyfakt 


or 


760 NEXT 


770 CALL &BB06:60T0 18 


punkte entsprechend. Am 
Beispiel der linearen Re- 
gression, einer Prognose- 
technik mit der man kurz- 
fristige Trendentwicklun- 
gen vorhersagen kann, soll 
die grafische Darstellung 
von Werten aufgezeigt 
werden. 

Eine Regression ist eine 
lineare Beziehung, die es 
erlaubt, aufgrund der fest- 
stehenden x-Werte genau 
den zugehörigen y-Wert 
zu bestimmen. In der 
praktischen Anwendung 
besteht jedoch in den sel- 
tensten Fällen eine sol- 
che lineare Abhängigkeit. 
Die Werte sind mehr oder 
weniger gestreut und es 
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gilt, eine möglichst ge- 
naue Gerade zu finden, 

die durch die Punkte ver- 
läuft. 

Die allgemeine mathema- 
tische Formel einer sol- 
chen linearen Beziehung 
lautet: y(i)=m#*x(i) tb. 
Es wird also der zufalls- 
unabhängige Wert x(i) mit 
dem Koeffizienten m (Re- 
gressionskoeffizient) multi- 
pliziert und ein fester Wert 
b addiert. Der Regressions- 
koeffizient bestimmt die 
Steigung der Geraden, der 
Festwert b den Schnitt- 
punkt auf der y-Achse. 
Unsere letzte Berechnung 
führt uns jetzt die Folgen 

des Alkoholgenußes aus 2» 


a—mmää—————m u äuäuu  n——————n, 


den vorangegangenen Bei- 
spielen vor. Will man den 
Zusammenhang zwischen 
dem Blutalkoholgehalt und 
den konsumierten Fla- 
schen Bier feststellen, so 
trägt man auf der x-Achse 
die zufallsunabhängigen 
Werte der Anzahl der Fla- 
schen ein und auf der 
y-Achse die zufällige Ziel- 
größe, nämlich die Promil- 
le des Blutalkoholgehalts. 
Eine Meßreihe führte zu 
folgendem Ergebnis: 


Zahl der Blut- 
Flaschen (x) alkohol(y) 
1 0.3 
2 0.5 
3 0.7 
4 1.0 
5 1.0 
6 1.5 
7 1.6 
8 2.1 


Man erkennt, daß der Blut- 
alkoholgehalt mit der An- 
zahl der konsumierten 
Flaschen Bier ansteigt. 
Der Zusammenhang ist an- 
nähernd linear, da die 
Punkte nahezu auf einer 
Geraden liegen. Diese un- 
selige Beziehung soll nun 
einmal grafisch dargestellt 
werden, um zum Beispiel 
den Blutalkoholwert für 
die 9. und 10. getrunkene 
Flasche vorherzusagen. 

In den Zeilen 40-100 
werden die x- und Y-Wer- 
te eingegeben und die 
Summe errechnet. Da die 
größte Zahl ja noch im 
Bildschirmbereich liegen 
muß, wird als dann näch- 
stes der Maximalwert für 

x und y errechnet (xma 
und yma). Der Grafikcur- 
sor wird in Zeile 200 auf 
die Position 50,55 gesetzt 
und ein Koordinatensy- 
stem gezeichnet. In Zeile 
260 wird ein Umrechnungs- 
faktor bestimmt, damit 
die Bildschirmgrenzen 
nicht überschritten wer- 
den können. 

In der Schleife (Zeile 270— 
460) werden zuerst die 
eingegebenen Werte in das 
Koordinatensystem geplot- 
tet. Dabei wird die Posi- 
tion bestimmt, indem er- 
stens die jeweiligen x- und 
y-Werte mit den entspre- 
chenden Faktoren multi- 
pliziert werden und zwei- 


SERIE 


tens der Versatz des Koor- 
dinatensystem addiert 
wird. 

In derselben Schleife 
wird als nächster Schritt 
die Skalierung vorgenom- 
men. Der Grafikcursor 
geht also bei der Einteilung 
der x-Achse auf die gleiche 
Position wie der entspre- 
chende Wert, wird aber 
nicht in y-Richtung ver- 
schoben, sondern zeichnet 
einen Punkt über die x- 
Achse und einen darunter. 
Bei den y-Werten wird ana- 
log verfahren, da verän- 
dert sich nicht der x-Wert 
(Zeilen 360-370). Es 
wird also in der entspre- 
chenden y-Höhe ein Punkt 
vor die y-Achse gesetzt 
und ein Punkt dahinter. 

In den Zeilen 400-450 
wird der erste und letzte 
x- bzw. y-Wert an der rich- 
tigen Position ausgedruckt. 
Der TAG-Befehl ermög- 
licht die Ausgabe von Zah- 
len auf Grafikcursorposi- 
tionen. Für weitere Be- 
rechnungen der Resgres- 
sionsgeraden werden 

noch die Mittelwerte der 
Zahlenreihen benötigt 
(Zeilen 500-550). 

Die Berechnung des Re- 
gressionskoeffizienten er- 
folgt in den Zeilen 600 — 
700. Es wird die Summe 
aller Produkte x(i) * y(i) 
gebildet (> x(i)*y(i) ). 
Davon wird das Produkt 
aus Anzahl der Werte 
(wanz) mal Mittelwert 
der x-Werte mal Mittel- 
wert der y-Werte subtra- 
hiert (siehe Formel 2). 

In den Zeilen 740-750 
wird die Regressionsgera- 
de in die bereits geplotte- 
ten Werte eingezeichnet. 
Der Bildaufbau erfolgt in 
zwei Schritten. Zuerst 
werden das Koordinaten- 
system gezeichnet und 

die eingegebenen Werte 


 geplottet. Hierbei wird 


der Mittelwert mit einem 
Kreuz gekennzeichnet. 
Der Rechner wartet dann 
auf einen Tastendruck 
(Zeile 560), um dann die 
Regressionsgerade einzu- 
zeichnen. Eine interessan- 
te Grafik erhält man auch 
nach Eingabe des Bei- 
spiels mit Gewicht und 
Größe. Hierbei sind zwei 
zufallsabhängige Varia- 


blen vorhanden. Man 
kann einmal das Gewicht 
als unabhängige Variable 
ansehen, zu anderen aber 
auch die Größe. 


Soweit also unser Beitrag 
zur mathematischen Sta- 
tistik. Die Grenzen dieser 
Voraussagetechnik sind 
natürlich vorbestimmt. 
Voraussetzung ist ein gül- 
tiges mathematisches Mo- 
dell und eine einigermaßen 
stabile Beziehung der 


Werte zueinander. Um 
alles zu berücksichtigen, 
bedarf es noch viel mehr 
Mathematik, mit der wir 
Sie nicht langweilen wol- 
len. Mit Sicherheit sehen 
Sie nun aber den Unter- 
schied zwischen einer ver- 
nünftig dargestellten Be- 
hauptung und den irre- 
führenden Werbestatisti- 
ken. Soll doch mal einer 
mit Zahlen belegen, daß 
nichts weißer wäscht als... 
(GS / Werner Arndt) 


Auch wenn das Schneider- 
Basic so ziemlich die beste 
Version für 8-Bit-Rechner 
darstellt, so finden sich 
doch immer wieder erheb- 
liche Lücken. Unter Um- 
ständen gibt es sogar Un- 
achtsamkeiten oder Feh- 
ler in der Programmie- 
rung, man denke da nur an 
den DEC-Befehl beim 
CPC 464. 

Wer die Maschinenspra- 
che beherrscht, der kann 
sich mit der Programmie- 
rung von RSX-Befehlen, 
den “Resistent System 
Extensions‘ (Systemresi- 
stente Erweiterungen), 
behelfen. Aber selbst wer 
den Z80 wie seine Westen- 
tasche kennt, der wird dies 
für einen umständlichen 
Weg halten. Kleine Tricks, 
die das Basic zweckent- 


- fremden oder umgehen, 


sind oft wirkungsvoller 
und einfacher zu program- 
mieren. Eine kleine wahl- 
lose Zusammenstellung 
liefert dieser Bericht. 


ABSPEICHERN VON 
TEILPROGRAMMEN 


Der CPC bietet viele Be- 
fehlskombinationen zum 
Abspeichern. Leider kann 
man nicht Teile aus Basic- 
programmen abspeichern. 
Es wäre doch hin und wie- 
der recht praktisch, wenn 
man eine Routine auf Dis- 
kette ablegt und sie in 

ein anderes Programm mit 
dem Merge-Befehl einbin- 
det. Das bedauerliche Man- 
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Tips & 
Tricks 


ko kann jedoch recht ein- 
fach behoben werden, in- 
dem man nicht den SAVE- 
sondern den LIST-Befehl 
benutzt. Grundsätzlich 
verfährt man nach folgen- 
der Methode: 


OPENOUT “Dateiname“ 
LIST <Zeilenbereich> ‚#9 
CLOSEOUT 


Eine ganze Programmrou- 
tine ließe sich dann mit 
diesen drei Zeilen abspei- 
chern: 


OPENOUT“TEST.BAS“ 
LIST 1000-1250,#9 
CLOSEOUT 


Dabei bietet der LIST-Be- 
fehl aber auch alle sonsti- 
gen Vorteile, die man aus 
dem Programmiermodus 
kennt. Es läßt sich eine 
Zeile sichern (LIST 
100,#9), es kann von An- 
fang an bis zu einer be- 
stimmten Stelle ausge- 
wählt werden (LIST - 1000 
‚#9) oder man speichert 
ab einer bestimmten Zei- 
lennummer bis zum Pro- 
grammende ab (LIST 1000 
— .=9). Ganz nebenbei er- 
gibt sich der Vorteil, daß 
die Dateien als ASCII- 
File abgelegt werden und 
ohne die üblichen Proble- 
me von Basic-Programmen 
mit dem MERGE-Befehl 
zugelesen werden können. 
Wer einmal seine Program- 
me durchforstet, der fin- 
det bestimmt einige Rou- 
tinen, von der Summen- 
schleife bis zur Menüver- 
waltung, mit der sich eine 


kleine Bibliothek anlegen 
läßt. Die Gestaltung zu- 
künftiger Programme ist 
dann etwas einfacher und 
schneller. 


ZUGRIFF AUF DIE 


ZEIT 


Komfortabel wie er nun 


einmal ist, besitzt der 
CPC einen interruptge- 
steuerten Timer, welcher 
die Zeit in 1/300 Sekun- 
den mißt. Leider vermißt 
man die Möglichkeit, die- 
se Software-Uhr aus dem 
Basic heraus zu stellen. 
Doch dem kann abgehol- 
fen werden. Der logische 
Weg würde natürlich über 
die Firmware-Routine 
KL TIME SET (#BD10). 
Gerade hier stellen sich 
jedoch einige Probleme. 
Zum einen hat sich in das 
Firmware-Handbuch zum 
CPC 464 ein Fehler einge- 
schlichen. Da wird doch 
glatt behauptet, daß es zu 
dieser Routine keine Ein- 
sprungbedingungen gibt. 
Aber dies ist falsch. Es 
wird in den Registern DE 
und HL ein 4-Byte (Long 
Word) Zähler übergeben, 
der die Uhrzeit in 1/300 
Sekunden enthält. Zum 
anderen müßte man aber, 
um die Uhrzeit zu stellen, 
wieder einen neuen RSX- 
Befehl definieren und die- 
sen Aufwand ist die Sache 
gar nicht wert. 

Die Lösung kommt mit 
den POKESs, den Basic- 
Befehlen zum Verändern 
der Speicherzellen. Die 
aktuelle Uhrzeit wird in 
die entsprechenden Firm- 
wareadressen, die beim 
464 ab #B187, beim 664/ 
6128 ab #B8B4 liegen 
gepoked, und das geht so: 


adresse=&B187 (664/ 
6128: &B8B4) 

timer=(stunden+3600 
+minuten+60+sekun- 
den) + 300 

POKE adresset3 ‚int 
(timer/2 24) 

timer=timer—peek 
(adresse+3)*2 24 

poke adresset2 int 
(timer/2 16) 

Die Fehler im ROM, die 

bei der Entwicklung des 

CPC einprogrammiert 

wurden, haben wir be- 


SERVICE 


reits angesprochen. Fast 
muß man es bedauern, 
daß bereits beim CPC 664 
Korrekturen vorgenom- 
men wurden und einige 
Ergänzungen das Basic per 
fektionieren. Hierdurch 
kam es zu einer häßlichen 
Inkompatibilität zwischen 
den verschiedenen CPC- 
Modellen, die den Usern 
das Leben schwer macht. 
Nicht umsonst vermerkt 
Schneider aktiv im Pro- 
grammkopf der Listings, 
auf welchem Typ das Pro- 
gramm lauffähig ist. 

Ein Programm kann auch 
selbständig prüfen, auf wel 
chem Rechnertyp es ge- 
startet wurde. Unter Um- 
ständen können dann an- 
dere Routinen angesprun- 
gen werden, oder es er- 
scheint zumindest ein ent- 
sprechender Hinweis auf 
dem Monitor, daß be- 
stimmte Basic-Befehle 
vom Anwender erst einma 
zu ändern sind. Aber wo 
kann der PEEK-Befehl 
„nachfragen“, um wel- 
chen CPC es sich gerade 
handelt? 

Die sicherste Taperken- 
nung ist die Adresse 
#0006. Diese Speicher- 
zelle beinhaltet das 
LOW-Byte des Sprungs 
zur Systeminitialisierung. 
Es ist bei jedem CPC ver- 
schieden und bleibt wäh- 
rend des Betriebs unver- 
ändert: 

CPC 464: #80 

CPC 664: #7B 

CPC 6128: #91 

Eine typische Überprü- 
fung, wobei dann auch 
gleich die DEC-Anwei- 
sung berücksichtigt wird, 
könnte so aussehen: 


10 IF PEEK(6)=&80 
THEN A$=DEC$ 
((Zahl,“##.##°) ELSE 
A$=DEC(Zahl, 

“nr ##“) 


In AS steht dann der kor- 
rekte DEC-Befehl. 
Soweit für heute. Ein 
paar weitere elegante Lö- 
sungen, um die Klippen 
des CPC-Basic zu um- 
schiffen, folgen in der 
nächsten Ausgabe. Natür- 
lich werden auch nicht 
die nötigen Beispielpro- 
gramme fehlen. 

(GS / Michael Folz) 


Der CPC 
als Profi 


Die Besitzer eines CPC- 
Computers sind in der 
glücklichen Lage, einen 
Rechner zu besitzen, der 
sowohl der Unterhal- 
tung dienen kann, als 
auch der praktischen 
Arbeit. Die Grundvoraus- 
setzungen sind bereits 

mit der Hardware gegeben. 
Sowohl die 80-Zeichen- 
Darstellung, als auch die 
vernünftige Tastatur ma- 
chen zum Beispiel die 
Textverarbeitung leicht. 
Trotzdem gibt es wohl nie- 
manden, der es wagen 
würde, einen größeren 
Text mit eben dieser 
Grundkonfiguration abzu- 
arbeiten. Der relativ klei- 
ne Speicher des 464 
macht dieses Vorhaben 
zunichte. _ 

Man hat bei der Entwick- 
lung des Rechners aber 
etwas weitergedacht. 

Von Anfang an war klar, 
daß mit dem CPC auch 
das Betriebssystem 

CP/M gefahren werden 
sollte und dadurch Pro- 
gramme zugänglich wer- 
den, die professionelles 
Arbeiten ermöglichen. 
Zwar sprach die Werbung 
damals von einer großen 
„CP/M-Welt“ und wurde 
von den Softwarehäusern 
etwas im Stich gelassen, 
doch mittlerweile hat sich 
das Angebot mit den drei 
wichtigsten Programmen 
abgerundet, als da wären: 
WordStar, dBase und Mul- 
tiplan. Da es sich hierbei 
aber nur um Anwender- 
programme handelt, scheut 
mancher User vor dem Be- 
triebssystem zurück. Es 
sind eben viele Dinge die 
zu umständlich erschei- 
nen oder deren Nutzen 
nicht auf den ersten Blick 
ersichtlich ist. Und manch 
einer, der keines dieser 
Programme benutzt, hat 
seine CP/M-Diskette bis- 
her nur benutzt, um Leer- 
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disketten zu formatieren. 
Wir wollen dem Betriebs- 
system etwas von seinem 
Schrecken nehmen. 


NUR CP/M FÜR 
8-BIT- PROZESSOREN 
KONNTE SICH 
DURCHSETZEN 


Das erste Betriebssystem 
mit dem Kürzel CP/M 
(Controll Program for 
Microcomputer) kam 1975 
auf den Markt, es ist also 
nur in der schnellebigen 
Computerbranche ‚,alt“ 
zu nennen. Es handelte 
sich dabei um die Version 
1.4, die dann 1979 von 
Digital Research verbes- 
sert und als 2.2 für alle Dis- 
kettenformate angepaßt 
wurde. Auch für den 16- 
Bit-Rechner gab es eine 
CP/M-Version, die sich 
allerdings nicht gegen den 
Erfolg von MS-DOS durch- 
setzen konnte. Wichtig- 
stes Ziel des Programmes 
ist es, bei den unterschied- 
lichsten Geräten für Kom- 
patibilität zu sorgen. Daß 
dies in erster Linie eine 
Frage der Hardware ist, 
hat man so gelöst, daß es 
nur einen Programmteil 

in diesem Betriebssystem 


gibt, der auf 4 jeweilige 
erät angepaßt werden 


muß, doch davon später, 
wenn es wirklich in die 
Praxis geht. 


AMSDOS UND CP/M — 
ZWEI BETRIEBS- 
SYSTEME FÜR EINEN 
RECHNER 


Es stellt sich dem unbe- 
fangenen Computerbesit- 
zer zuerst einmal die 
Frage, wozu denn ein Be- 
triebssystem dient. Allzu 
oft wird als selbstver- 
ständlich hingenommen, 
daß jede Taste die ge- 
drückt wird, auch auf dem 
Bildschirm erscheint. 
Aber dies ist eigentlich 
kein einfacher Vorgang. 
Zu allererst einmal muß 


! 


ein Rechner wissen, ob 
und welche Taste gedrückt 
wurde. Ein entsprechen- 
des Programm, nichts an- 
deres ist ein Betriebssy- 
stem, muß also ständig die 
Tastatur abfragen und bei 
Betätigung auswerten. 

Die Information, die da- 
durch erhalten wird, ist 
dann an die richtige Stelle 
weiterzuleiten, in den mei- 
sten Fällen der Bildschirm. 
Dort gilt es allerdings, die 
Eigenheiten der Hardware 
zu berücksichtigen. Wie 
ein Zeichen darzustellen 
ist, an welcher Stelle in- 
nerhalb einer Matrix ein 
Punkt zu sitzen hat, das 
erfährt ein Steuerpro- 
gramm aus dem Zeichen- 
satz. Ganz nebenbei muß 
dies alles in der richtigen 
Taktfrequenz geschehen 
und Sonderwünsche, etwa 
die Farbe oder die Posi- 
tion durch Steuerzeichen- 
Befehle, müssen berück- 
sichtigt werden. Daß ein 
Buchstabe auf dem Moni- 
tor erscheint, ist also schon 
ein recht komplizierter 
Vorgang. 

Der Anwender muß und 
kann sich jedoch um all 
diese Dinge nicht küm- 
mern. Dies ist auch nicht 
notwendig, denn der 

CPC besitzt ein eingebau- 
tes Betriebssystem, das 
AMSDOS. Es ist im ROM 
(Read Only Memory — 
Nur Lese-Speicher) unter- 
gebracht und steht nach 
dem Einschalten sofort 
zur Verfügung. Die Ab- 
kürzung DOS steht da- 
bei für Disketten Opera- 
ting System (Disketten- 
Betriebssystem), AMS 
weist auf den Entwickler 
Amstrad hin. Mit dem 
Begriff DOS kann man 
jedoch einer Täuschung 
unterliegen. Um dieses 
Programm zu benutzen, 
ist nämlich kein Laufwerk 
nötig. Sie haben sicherlich 
schon festgestellt, daß 
der Befehl SAVE für das 
Abspeichern auf Kasset- 
te ebenso gilt, wie für die 
Diskette. 

Da AMSDOS immer vor- 
handen ist und selten er- 
wähnt wird, daß hier be- 
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gar nicht darüber im Kla- 
ren, daß sie mit CP/M 
schon ihr zweites Steuer- 
programm in den Händen 
halten. 

Der auffälligste Unter- 
schied ist nun einmal, daß 
CP/M zuerst eingeladen 
werden muß, bevor die 
einfachsten Befehle zur 
Verfügung stehen. Für man- 
che Utilities ist es sogar 
notwendig, daß die Sy- 
stemdiskette im Laufwerk 
bleibt. Aber auch der Bild- 
schirmmodus ändert sich 
nach dem Start mit 
“:CPM“. Es wird eine 80- 
Zeichen-Darstellung be- 
nutzt und der Cursor — 
bisher ein Block — ver- 
wandelt sich in einen Buch- 
staben mit einem Pfeil 
nach rechts (“A>‘*). 


WELCHES CP/M DARF’S 
DENN SEIN? 


Mit dem Einschaltbild 
zeigen sich auch schon die 
Unterschiede zwischen 
den beiden CP/M-Versio- 
nen 2.2 und CP/M Plus. 


Dabei stellt 2.2 ein älteres 


Betriebssystem dar und 
wird von Schneider mit 
dem Diskettenlaufwerk 
zum CPC 464 ausgeliefert. 
Die überarbeitete Form, 
am Plus erkenntlich, ist 
dem CPC 6128 beigelegt. 
Nur hier können bestimm- 
te Routinen, etwa im Zu- 
sammenhang mit den zu- 
sätzlichen Speicherbän- 
ken, wirken. Der 128- 
KByte CPC verarbeitet 
auf Wunsch also beide Ver- 
sionen, der 464 muß sich 
mit dem CP/M 2.2 zufrie- 
den geben. Setzt man eine 
Speichererweiterung ein, 
dann muß das Betriebs- 
system geändert werden, 
um diese Erweiterung zu 
verwalten. Nur ein Besit- 
zer des CPC 6128 kann 
also die Unterschiede be- 
merken. Der erste zeigt 
sich bereits in der Ein- 
schaltmeldung. Unter der 
Versionsnummer wird bei 
CP/M Plus noch die An- 
zahl der (eingeschalteten) 
Laufwerke gemeldet. 
Bleiben wir aber erst ein- 
mal bei den theoretischen 


reits ein Betriebssystem vor- Gemeinsamkeiten. Einiges 


liegt, sind sich manche 
Käufer eines Laufwerkes 


von dem, was ein Betriebs- 
system können muß, ha- 


ben wir schon ganz allge- 
mein beschrieben. Das 
CP/M liefert für diese Auf- 
gaben gleich drei Teilpro- 
gramme, die die Verwal- 
tungsarbeiten im Compu- 
ter regeln. Da ist zuerst 
einmal das BDOS (Basic 
Disc Operating System — 
Grundlegende Disketten 
Diskettenverwaltung), 

Wie der Name schon sagt, 
ist es zur Ein- und Ausga- 
be von Dateien auf die Dis- 
kette zuständig. Diese 
Arbeiten sind so elemen- 
tar, daß das notwendige 
Programm hierzu, eben 
das BDOS, auf vielen an- 
deren Computern mit glei- 
chem Prozessor eingesetzt 
werden kann. Lediglich 
die Frage der Speicher- 
adresse muß beachtet wer- 
den. 

Anders dagegen das BIOS 
(Basic Input Output 
System — Grundlegendes 
Ein-Ausgabe-System). 
Schauen Sie sich einmal 
die Tastaturen verschiede- 
ner Computer an und Sie 
werden verstehen, war- 
um man das Programm 
zur Eingabekontrolle 
nicht kompatibel gestal- 
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ten kann. Ebenso verhält 
essich mit der Ausgabe 
von Zeichen, da fast je- 
der Hardware-Hersteller 
eine andere Bildschirm- 
verwaltung bevorzugt. Es 
ist also Sache des Compu- 
terherstellers, für ein ein- 
wandfreies BIOS zu sor- 
gen. Beim CPC findet sich 
das BIOS dann auch in ei- 
nem ROM-Baustein des 
Disketten-Controllers. 
Und diese Ein- und Aus- 
gabekontrolle ist im we- 
sentlichen dafür verant- 
wortlich zu machen, daß 
es eben doch nicht so ein- 
fach ist, beispielsweise ein 
Commodore CP/M zu be- 
nutzen. 

Das CCP (Command 
Control Program -— Be- 
fehls Kontroll-Programm) 
ist wiederum weit- 
gehend genormt und un- 
abhängig vom Hard- 


22 


ware-Hersteller. Dieses 
CP/M-Teilprogramm be- 
steht aus einigen Befeh- 
len, bzw. deren Ausfüh- 
rungsroutinen und verwal- 
tet alle anderen. Dazu 
muß man wissen, daß man 
von residenten Anwei- 
sungen spricht, wenn das 
CCP diese Routine selb- 
ständig abarbeiten kann, 
und von nicht residenten, 
wenn zur Ausführung erst 
ein Programm von der 
System-Diskette aus nach- 
geladen werden muß. 


NICHT ALLE BEFEHLE 
SIND SOFORT 
VERFÜGBAR 


So kann der Befehl DIR 
immer ausgeführt werden, 
er ist resident, während 
FORMAT ein umfangrei- 
cheres Programm darstellt, 
welches vor dem Start erst 
eingeladen werden muß. 
Dieses Verfahren bietet 
gleich zwei Vorteile. Zum 
einen wird natürlich Spei- 
cherplatz gespart, denn 
das Betriebssystem, be- 
stehend aus BDOS, BIOS 
und CCL, soll ja nicht so 


“umfangreich sein, daß die 


weitere Arbeit unmöglich 
ist. Für selten benutzte 
Optionen ist es besser, 
auf den Datenträger zu- 
rückzugreifen. Solange die- 
se Maschinenprogramme 
aber nur aufgerufen und 
abgearbeitet werden, sind 
sie auch noch zu verändern 
und dies ist der zweite, 
wesentliche Vorteil. 

Das beste Beispiel bieten 
hierzu ja die beiden Schnei- 
der CP/M-Versionen. Wäh- 
rend das Formatieren oder 
Kopieren einer Diskette 
unter 2.2 noch etwas 
nüchtern erledigt wird, ist 
unter der Plus-Version ein 
menügesteuertes Programm 
eingebaut. Der Komfort 
ist allerdings nicht so wich- 
tig wie die Tatsache, daß 
es sich hierbei in beiden 
Fällen um ein Programm 
handelt, welches auf der 
Diskette ist. Fehlt es, dann 
wird der Befehl noch ein- 
mal ausgegeben und ein 
Fragezeichen angehängt. 
Nach allem bisher Gelese- 
nen können Sie als Bei- 
spiel ruhig einmal nach 
dem CP/M-Start folgen- 


den Satz eingeben: 
Computer sind doof! 
Der CPC wird mit leichter 
Ironie zurückfragen: 
Computer? 
Glauben Sie aber ja nicht, 
unter CP/M sei der Rech- 
ner plötzlich intelligent 
und wisse sich mit 
Scherzen gegen Ignoran- 
ten zu wehren. Das CCP, 
die Befehlsverwaltung, 
suchte nur das Programm 
“Computer‘“, fand es 
nicht und gibt ein Frage- 
zeichen aus, weil die Pro- 
grammierer des Systems 
einen Schreibfehler bei 
der Eingabe voraussetz- 
ten. 


DIE DISKETTEN- 
BEFEHLE 


Kommen wir noch ein- 
mal auf den Systemstart 
zu sprechen, bei dem nur 
CP/M-Plus meldet, ob ei- 
ne oder zwei Laufwerke 
angeschlossen und einge- 
schaltet sind. Dies bedeu- 
tet aber nicht, daß 2.2 
nur mit einem Laufwerk 
arbeitet, es fehlt nur der 
entsprechende Hinweis. 
Der Prompt, wie der 
Cursor nunmehr genannt 
wird, gibt an, welches 
Laufwerk in Benutzung ist. 
Beim Start ist es prinzi- 
piell das Erstlaufwerk 
(“A°“). Nur nach Eingabe 
des Befehles “B:“ (mit 
Doppelpunkt) wird das 
Zweitlaufwerk angespro- 
chen, das Prompt ändert 
sich entsprechend. Eine 
Diskette muß beim Um- 
schalten allerdings in bei- 
den Laufwerken vorhan- 
den sein, obwohl dieser 
Umschaltbefehl resident 
ist. Dies liegt daran, daß 
nachgefragt wird, ob über- 
haupt ein Datenträger 
vorhanden ist, wobei es 
sich nicht um eine System- 
diskette handeln muß. 
Ebenfalls resident ist der 
DIR-Befehl, welcher die 
Ausgabe des Directory 
veranlaßt. In dieser knap- 
pen Form ist der Disket- 
ten-Katalog allerdings 
nicht sehr übersichtlich. 
Um sich die Übersicht 
zu verbessern, arbeitet 
man besser mit Wildcards 
oder Joker. Die Begriffe 
aus dem Zockerleben ha- 
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ben tatsächlich eine ähn- 
liche Bedeutung im Be- 
triebssystem, sie dienen 
als Ersatz. Dabei stehen 
Fragezeichen (?) für ei- 
nen Buchstaben alleine, 
der Multiplikationsstern 
(*) kann eine ganze Grup- 
pe vertreten. DIR *.COM 
listet alle Programme auf, 
die die Extension .COM 
besitzen, der Befehl DIR 
DEMO?.COM würde 
DEMO1.COM, DEMO2. 
COM und so weiter auf- 
listen, nicht jedoch 
DEMO11.COM. 


SPEICHERPLATZ NUR 


NACH GESONDERTER 
NACHFRAGE 


Wer den CAT-Befehl des 


AMSDOS kennt, der wird 
beim CP/M Directory die 
Angabe der File-Größe 
und des verfügbaren Spei- 
cherplatzes auf Diskette 
vermissen. Mit einem Pro- 
gramm namens “STAT“ 
rückt das Betriebssystem 
auch mit diesen Informa- 
tionen heraus, allerdings 
nur mit folgender Bild- 
schirmmeldung: 

R/W, Space: 28k 
Dies besagt, daß die Dis- 
kette zum Lesen und 
Schreiben ist (R/W: Read/ 
Write) und noch 28 
KByte Speicherplatz zur 
Verfügung stehen. Noch 
genauer wird die STAT- 
Routine, wenn sie sich 
über ein oder mehrere 
Programme äußert. Dann 
wird zusätzlich zur K- 
Byte-Größe auch die 
Anzahl der Records je 
Programm mitgeteilt, am 
Schluß natürlich auch wie- 
der der verbleibende Spei- 
cherplatz der Diskette. 
Es muß dazu nur mit 
STAT name.bsp genauer 
nachgefragt werden. Wer 
also einmal Sehnsucht 
nach dem ausführlichen 
CAT-Befehl hat, der tippt 
einfach STAT *.* ein 
und erhält eine komplette 
Auflistung. Vielleicht ist 
hier auch der Hinweis 
angebracht, daß mit den 
Tasten “Ctrl“ und “p“ 
der Drucker aktiviert wird 
und sämtliche Angaben, 
die auf dem Bildschirm zu 
sehen sind, auch auf den 
Drucker geleitet werden. 


Aber STAT kann noch 
mehr. So kann man 
Programme vor versehent- 
lichem Löschen schützen 
indem man den Schreib-/ 
Lesestatus ändert. Dies 
geht auch dann, wenn es 
sich nur um ein einzelnes 
Programm handelt und der 
Datenträger ansonsten 
nicht mit dem Schiebereg- 
ler geschützt ist. Mit dem 
Befehl ERA (Erase-Lö- 
schen) kann ein so behan- 
deltes File nicht mehr ge- 
löscht werden. Die Befeh- 
le lauten 

STAT DEMO.COM 

$R/O 


für die Herstellung des 


„Nur Lese-Status‘“ und 


STAT DEMO.COM 

$R/W 
für die Wiederherstellung 
des normalen Schreib-/ 
Lesezustandes. Auch hier- 
bei können Wildcards und 
Joker benutzt werden, um 
sich die Arbeit zu verein- 
fachen. STAT werden Sie 
unter CP/M Plus vergeblich 
suchen. Hier wird dieser 
Befehl durch die logische- 
ren Bezeichnungen SHOW 
und SET ersetzt, welche 
jedoch die gleiche Funk- 
tion haben. 


DAS ENDE ALLER 
DATEN: FORMAT 


Selbst wenn Sie sich ein 
File vor dem versehentli- 
chen Löschen schützen, 
gegen FORMAT ist kein 
Kraut gewachsen. Wie be- 
reits erwähnt, ist unter 
CP/M Plus die Routine als 
menügesteuertes DISCKIT3 
beigelegt. Die Regeln, nach 
denen zu formatieren ist, 
gelten allerdings auch hier. 
Die Entscheidung, welches 
Diskettenformat benutzt 
werden soll, trifft man 
beim CP/M 2.2 bereits bei 
der Eingabe. Am wichtig- 
sten dürfte der Parameter 
“d‘“ sein. Damit wird das 
sogenannte Datenformat 
hergestellt. Eigentlich wer- 
den nicht mehr Spuren 
formatiert, sondern es 
werden keine CP/M-Sy- 
stemspuren belegt. Eine 
derart behandelte Disket- 
te bietet dann 178 KByte 
Speicherplatz (je Seite). 
Formatiert man ohne die- 
sen Parameter, dann er- 
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hält man eine Systemdis- 
kette, die unter CP/M zu 
verwenden ist, kann aber 
nur noch auf 169 KByte 
zurückgreifen. 
Aber gehen Sie mit dem 
Format-Befehl sehr vor- 
sichtig um! Wird die Rou- 
tine erst einmal abgearbei- 
tet, dann sind sämtliche 
Daten verloren, die sich 
auf der Diskette befan- 
den. Gerade Anwender 
mit nur einem Laufwerk 
sind in Gefahr, den Dis- 
kettenwechsel zwischen 
CP/M- und Neudiskette 
zu vergessen und löschen 
dann das Betriebssystem. 
Mit ebenso großer Vor- 
sicht muß der ERA-Befehl 
benutzt werden. Er dient 
zum Löschen einzelner 
Files, kann aber auch 
— und dies macht ihn für 
Unachtsame so gefährlich 
— mit Wildcards und 
Jokern eingesetzt werden. 
Nur wenn Sie ERA *.* 
eingeben, vergewissert 
sich der CPC, ob Sie es 
auch wirklich ernst mei- 
nen. Aber bereits ein 
ERA *.COM wird ohne 
zu zögern ausgeführt, es 
sei denn, Sie hätten das 
eine oder andere Pro- 
gramm mit dem STAT- 
Befehl gesichert. Der beste 
Schutz vor Fehlbedienun- 
gen ist immer noch die 
Anfertigung einer Sicher- 
heitskopie, bzw. einer Ar- 
beitsdiskette. Nur das 
Backup kann den Scha- 
den abwenden. 
Sie sehen, so schwierig 
ist CP/M für den Einstei- 
ger nicht. Viele Befehle ha- 
ben ihr Äquivalent unter 
AMSDOS, etwa das Um- 
schalten zwischen zwei 
Laufwerken. Zum anderen 
ist das Arbeiten mit diesem 
Betriebssystem aber auch 
einfacher, wie zum Bei- 
spiel die Ausgabe des Di- 
rectory auf den Drucker 
beweist. An dieser Stelle 
werden in Schneider 
aktivnoch ein paar Erklä- 
rungen folgen, die natürlich 
nicht ohne Tips und Tricks 
bleiben. Es wäre ja auch 
zu schade, den CPC-Com- 
puter zu einer Spielkonso- 
le zu degradieren. Denn 
was wirklich in ihm steckt, 
zeigt er erst im Wettkampf 
mit den „Großen“. 

(GS) 


| LISTINGS | 


Sportauswertung 


Unser Autor Reinhard Pirnbacher hat für alle Schnei- 
der-aktiv-Leser ein Programm geschrieben, das bei 
Vereins- oder Schulsportveranstaltungen, oder auch 
bei privaten Wettkämpfen, die Ergebnisse von Wettbe- 
werben, bei denen es auf die erzielte Zeit ankommt, 
auf bequeme Weise auswertet. Das Programm läuft 
auf allen CPCs, auf dem 464 aber sinnvollerweise nur 
mit Diskettenstation, da im Programmlauf mehrmals 
auf den Datenträger zugegriffen wird. 

Das Programm ist voll menügesteuert und bietet eine 
Reihe von Optionen: 


1. Sportlernamen eingeben 


Nach dem Aufruf dieses Menüpunktes ist zuerst die 
Bezeichnung der Mannschaft einzugeben. Bei Schul- 
wettkämpfen könnte die Klassen- oder die Jahrgangs- 
bezeichnung eingegeben werden. Aber auch jede 
andere Bezeichnung ist hier denkbar. 

Danach geben Sie dann die Namen der Teilnehmer 
ein sowie die Schulbezeichnung. Diese zweite Eingabe 
ist aber wahlfrei und kann durch einfaches Drücken 
der Enter-Taste übergangen werden, wenn sie nicht 
gewünscht wird. 

Wenn Sie jedoch beim Namen schon Enter drücken, 
wird die Namenseingabe beendet und die Daten auto- 
matisch auf Diskette abgespeichert. 

Die Abspeicherung erfolgt unter dem Mannschaftsna- 
men. Wurde dabei ein Name eingegeben, der mehr als 
8 Buchstaben hat, so wird dieser automatisch auf die 
ersten acht Buchstaben gekürzt. 


2. Liste korrigieren 


Selbstverständlich sieht das Programm die Möglich- 
keit der Korrektur von eingegebenen Namen oder 
Zeiten vor. 


3. Zeiten eingeben 


Bei Anwahl dieser Option können Sie die erzielten Zei- 
ten der Wettkämpfer eingeben. Das Programm beginnt 
dann mit dem Teilnehmer Nummer 1 und wartet auf 
die Eingabe. Sinnvoll wäre folgende Vorgehensweise: 
Sie lassen eine Liste der Wettkämpfer (ohne Zeiten) 
ausdrucken, geben sie den Zeitnehmern und überneh- 
men dann die erzielten Zeiten in den CPC. 

Bei der Eingabe ist das Format der Zeiteingabe unbe- 
dingt zu beachten. Es dürfen keine Nullen (auch keine 
führenden Nullen) weggelassen werden, da sonst die 
Sortierroutine die Zeiten falsch sortieren würde. 

Sie können die Zeiteingabe auch mit “XX“ unterbre- 
chen und die fehlenden Zeiten dann beim Menüpunkt 
“Liste korrigieren‘ nachtragen. 


4. Liste ausgeben 


Es erscheint der Disketteninhalt mit allen bisher 
schon eingegebenen Listen. Dabei erkennt man die 
Ergebnislisten an einem vorangestellten “*E“. Dabei 
haben Sie die Wahl zwischen der Bildschirm- oder der 
Druckerausgabe, wobei nicht nur die erzielten Zeiten 
mitausgegeben werden, sondern auch die Zeitdiffe- 
renz auf den jeweiligen Sieger. 


Bitte lesen Sie weiter auf Seite 27 


24 


LISTING 


ID RR 


20 '* SPORT AUSWERTUNG * 
30 ’* VoN * 
40 '%* REINHARD PIRNBACHER * 
se ’* FUER * 
6a '* SCHNEIDER AKTIV * 
62 ’%* CPC 464/664/6128 JEX 


EA RRRRRRRRRRRRRHHHRRHRRRRRRRRRRRR 
70’ 
80 INK 8,0:INK 1,23:Z0NE 3:DEFIMT a,i,m, 


98 OPENOUT "dummy”:MEMORY HIMEM-1:CLOSEO 
UT 

100 ’ 

110 MODE 2:REM Henue 

120 CLEAR:DIM n$(288):DIM s$(208):DIM z$ 
(228) :WINDOW#Q,1,80,3,25:WINDOW#1,1,80,1 
‚2 

130 CLS:PAPER #1,1:PEN #1,0:CLS#1:PRINT# 
1, TAB(25S)?SSPORTAUSWERTUNG 
148 PRINT#1,TAB(19) ” (c) Reinhard Pirnb 
acher Ach/Burghausen ” 

158 LOCATE 27,6 


160 PRINT "Liste eingeben ...... [1]” 

178 PRINT 

180 PRINT TAB(27)"”Liste korrigieren....[ 
2.3? 

198 PRINT 

208 PRINT TAB(27)”Zeiten eingeben ..... [ 
371” 

210 PRINT 

220 PRINT TAB(27)”Liste ausgeben ...... [8 
4]” 

230 PRINT:PRINT TAB(27)”Namen loeschen 
BERN [51]” 


240 LOCATE 31,18:PRINT"Bitte waehlen !” 
250 GOSUB 1410 

260 IF x$="2" THEN 470 

270 IF x$="3”" THEN 730 

280 IF x8="4” THEN 1088 

290 IF x8="5” THEN 1570 


310 REM Liste eingeben 

320 ii=] 

330 CLS:PAPER #1,1:PEN#1,0:CLS#1:INPUT#1 
‚” Welche Mannschaft :”;mschaft$ 

340 PRINT#1,” Bitte geben Sie die Namen 
ein - beenden mit ENTER ” 

358 FOR I=ii TO 208 

368 PRINT 

370 PRINT i;”. Name : ”;:INPUT n$(i) 
388 IF n$(i)=""” THEN flag=8:60T0 1148 
398 IF LEN(n$(i))<C22 THEN FOR j=1 TO 22- 
LEN (n$(i)):n$(i)=sn$(i)+” ”:NEXT ELSE IF 
LEN (n$(i)))22 THEN n$(i)=LEFT&(n$(i),22) 
400 anz=anzt| 

418 PRINT ” Schule : ";:INPUT v$:IF 
us="" THEN s$(i)="___________LIIIIDDN FE 
LSE s$(i)=v$ 


420 IF LEN(s$(i))<20 THEN FOR j=1 TO 28- 
LEN (s$(i)):s$(i)=s$(i)+” ”:MEXT ELSE IF 
LEN(s$(i)))20 THEN s$(i)=LEFT$(s$(i),28) 
430 z$8(i)=” 3 


» 


4408 NEXT 


450 Flags=8:G0TO 1148 
460 


470 REH Liste korrigieren 

480 CLS:GOSUB 1380:CAT 

498 INPUT#1, ” Welche Liste korrigieren: 
”:file$ 

588 IF LEN(files$))8 THEN PRINT”Fehleinga 

be”:GOTO 490 ELSE GOSUB 1218 

51@ IF UPPER$(LEFT$(file$,1))="E” THEN f 
lag=1 ELSE flag=8 

5208 CLS:INPUT "Vorhandene Eintraege korr 
igieren (1)... .2.2222c22e. Hinzufuegen (2) 
"28 

530 IF x$="2” THEN ii=sanz+1:CLS:G0TO 340 

540 CLS:CLS#1:PRINT#1,”"In Arbeit: ”;file 

$:PRINT#1,”"Bitte neu eingeben oder weite 
r mit ENTER / Abbruch mit XX” 

550 IF x$="2” THEN ii=anz:GOTO 340 

568 PRINT”Welche Nr.:”;:IMPUT nr$:IF nr= 

anz THEN 780 

578 IF nr$="" THEN nr=nr+1:G0T0O 598 ELSE 
IF UPPER$ (nr$)="XX” THEN IF flag=1 THEN 
880 ELSE 1148 

5808 nr=VAL(nr$) 

590 PRINT nr ;n$(nr);:INPUT v$ 

600 IF vs=""” THEN 630 ELSE IF UPPER$(v$) 
=”"XX” THEN IF flag=1 THEN 880 ELSE 1140 
610 n$(nr)=v$ 

628 IF LEN(n$(nr))<(22 THEN FOR j=1 TO 22 
-LEN(n$ (nr )) :in$(nr)=zn&(nr)+” ”:NEXT ELSE 
IF LEN(n&(nr))>22 THEN n$(nr)=LEFT$ (n$( 
nr),22) 

638 PRINT nr ;s$(nr);” ”;:INPUT v$ 

648 IF vs=""” THEN 670 ELSE IF UPPER$(v$) 

="XX” THEN 888 

650 s$(nr)=u$ 

6608 IF LEN(s$(nr))<2B8 THEN FOR i=1 TO 20 

-LEN(s$ (nr )):s$(nr)=s$(nr)+” ”:NEXT ELSE 
IF LEN(s$(nr))>20 THEN s$(nr)=LEFT$ (s$( 

nr),20) 

6708 PRINT nr ;z$(nr);” "SEN 

PUT v$ 

680 IF vs=""” THEN 708 ELSE IF UPPER$(v$ 
)="XX” THEN IF flag=1 THEN 880 ELSE 1140 

690 z$ (nr )=v$ 

788 IF nr=208 OR nr=anz THEN IF flag=IT 
HEN 8808 ELSE 1140 

’18 GOTO 568 

720 ’ 

738 REM Zeiten eingeben 

740 PAPER#1,1:PEN#1,0:CLS:GOSUB 1380:CAT 
:INPUT#1,” Zeiten eingeben - welche List 
e: ”;files 

750 GOSUB 1218 

768 CLS:PRINT#1,”In Arbeit = Mannschaft: 
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”:files$:PRINT#1,"Abbruch mit XX” 
778 FOR i=1 TO anz 
788 PRINT i,n$(i),s$(i),z$(i);:IMPUT ” 
Zeit: ”,zu$ 
790 IF zw$="" THEN 828 ELSE IF UPPER$ (zw 
$)="XX” THEN 848 
808 IF LEN(zuS)<>8 THEN PRINT”Kann was n 
icht stimmen - nochmal !”:GOTO 788 
810 z$8 (Ci )=ZW$ 
820 WEXT 
838 GOTO 868 
840 INPUT#1,”Sie brachen ab / Speichern 
der bisherigen Eingaben (J/N)”;x$ 
850 IF UPPER$(x$)="N” THEN 118 
860 Flag=1 
870 ’ 
888 REM Shellsort 
898 FOR m=anz-1 TO 1 STEP -1 
908 m=INT((m+1)/2) 
910 FOR j=0 TO anz-m 
920 i=j 
938 IF z$(Ci)<(=z$(irm) THEN 970 
940 his=z$li):zbli)=zdlirm):zblirm)shis: 
his=n$(i):n$li)en$litm) in$(itm)=hi$:his= 
s$(li):s$li)=s$li+rm):s$litrm)shiß 
9508 i=i-m 
9608 IF i)=8 THEN 930 ELSE 978 
970 NEXT j,m 
982 GOTO 1148 
990 °’ 
1808 REM Listen ausgeben 
1010 anz=0:G0SUB 1388:CAT 
1828 INPUT#1, ” Welche Liste:”;file$:IF 
file$s=""” THEN 118 
1838 IF LEN(files$s)>8 THEN PRINT#1,” Fehl 
eingabe !”:GOTO 1820 ELSE GOSUB 1218 
1848 PRINT#1,” Drucker (D) oder Bildschi 
rm (B)” 
1058 GOSUB 1418 
1060 IF x$="D" OR x$="d” THEN b=8 ELSE b 
=0 
1870 IF UPPERS(LEFTS$(file$,1))="E” THEN 
1088 ELSE 1188 
18808 MODE 2:PRINT#b,’Ergebnisliüi 
s te” 
1890 GOSUB 1278:60T0 1128 
1100 MODE 2:PRINT#b,’Startliste 


1110 GOSUB 1278 

1120 IF b=0 THEN CALL &BB18:6G0T0 118 ELS 
E 60T0 118 

1138 ' 

1148 REM Speichern 

1150 IF flag=@ THEN file$=LEFT$(mschaft$ 
‚8) ELSE file$="E”+LEFT$(mschaft$,7) 
1168 OPENOUT files 

1178 PRINT#9 ‚mschaft$:PRINT#9 ‚aanz:FOR i= 
1 TO anz:PRINT#9 ‚,n$(i):PRINT#9,s$(i):PRI 
NT#9 ,z8 Ci) :NEXT 

11808 CLOSEOUT 


1198 60TO 118 

1200 ’ 

1218 REM UP Liste einlesen 

1220 OPENIN files 

1230 INPUT#9 ‚nschaft&:1MPUT#9 ‚anz 


1248 FOR i=1 TO anz:INPUT#9 ‚n$(i):IMPUTH 
9,s$(Ci):INPUTHY,z$(i):NEXT 


1252 RETURN 
1260 ’ 


1270 REM UP Druckroutine 
12808 PRINTAb „"-------------------------- 


1290 PRINT#b ‚mschaft$ 
1308 PRINT#b ,"-------------------------- 


1318 PRINT#b,,"Wr. Name 
Schule Zeit 

Diff” 
1328 FOR i=1 TO anz 
1330 IF UPPER$S(LEFT$(file$,1))="E” THEN 
PRINT#b ‚USING "#H#”;i;:PRINT#b,” ”;:PRI 
NT#b ‚n$(i),:PRINT#b ,s$(i),,:PRINT#b ‚,z$ (i 
),:GOSUB 1430:PRINT#b,,,,diff$:GOTO 13582 
1340 PRINT#b ‚USING "###” ;i;:PRINT#b,"” ” 
;:PRINT#b ‚n$(i),:PRINT#b ,s$(i),, :PRINT#b 
‚z$(i) 
1358 NEXT 
1360 RETURN 
1370 ’ 
1380 REM ups 
1390 CLS:CLS#1:PRINT#1,” Mit E vorangest 
ellt = Ergebnislisten ” 
14008 RETURN 
1410 x$=INKEY$:IF x$="" THEN 1418 
1420 RETURN 
1430 REM Diff berechnen 
1448 difts="” 
1450 t=VAL(LEFT$(z$(i),2))x6B00+VAL(CHIDE 
(z8(i),4,2))*1B0+VAL(RIGHTS (z$(i),2)) 
14608 IF i=1 THEN t1=t 


1478 diff=t-t1 


1480 mi=INT (diff/6008) 

1498 se=INT((diff-(6008%mi))/188B) 

1500 hse=diff-(mix6B08)-(sex12B) 

I5SI@ IF mi<18 THEN mi$="B"+RIGHTS(STRS (m 
i),1) ELSE mi$=RIGHTS(STR$ (mi),2) 

1520 IF se<1Q THEN se$="Q”"+RIGHTS(STRS (s 
e),1) ELSE se$=RIGHT$(STR$ (se),2) 

1530 IF kse<18 THEN hse$="B"+RIGHTS(STRS 
(hse),1) ELSE hse$=RIGHT$(STR$(hse),2) 
1548 diff$=mi$t”"."+se$+”."thse$ 

1550 RETURN 

1560 °’ 

1570 CLS:CLS#1:PRINT#1,” Mamen loeschen” 
:CAT:INPUT#1,” Aus welcher Liste:”;file$ 
1588 OPENIN files 

1590 INPUT#9 ‚mschaf t$:IMNPUT#9 ‚anz:FOR i= 
1 TO anz:IMPUT#9 ‚n$(i) :IMPUT#9,s$(i):INP 
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| LISTING | 


UT#9 ‚z$ Ci) :NEXT 
1608 CLOSEIN 


1610 PRINT#1,” ”";files;” geladen Anz 
:” janz 

1628 CLS:IMNPUT ” Welche Hr. loeschen ”;n 
r 

1630 CLS 


1648 PRINT nr ;n$ (nr) ;s$(nr);z$(nr) 

T ” Loeschen (j/n)”;x$ 

1650 IF UPPER$(x$)="XX” THEN 1168 
1660 IF UPPER$(x$)="N” THEN nr=nr+1:60T0 
1688 

1670 FOR i=nr TO anz:n$(i)=n$(irl):s$(i) 

=s$(irl):z$(i)=z$lirl):NEXT :anz=zanz-1 

1680 IF nr>anz THEN anz=zanz-gel:G0T0 116 

0 ELSE 1648 


Fortsetzung von Seite 24 


5. Namen löschen 


;:IMPU 


Dabei wird die laufende Nummer des Datensatzes, der 
gelöscht werden soll, abgefragt. Nach einer Sicherheits- 
abfrage werden dann die ausgesuchten Daten gelöscht. 
Der Autor dieses Programms ist Lehrer an einer Haupt- 
schule, wo nicht nur für den Informatikunterricht, son- 
dern auch in der Schulverwaltung CPCs eingesetzt 
werden. Daher also ein Programm aus der Praxis für 
die Praxis. JE 


Printed 
Matter 


Dieses Programm unseres Autors Michael Folz ist eine 
kleine, zusammengesetzte Utility-Sammlung für den 
Druck und beinhaltet insgesamt drei Routinen: 


1. Der Druckerspooler: 


Ein Spooler, oder, um genau zu sein, ein Softspooler, 
ist ein Programm, welches die Druckerausgabe ver- 
schnellert (kurz gesagt), indem es die zu druckenden 
Zeichen nicht sofort an den langsamen Drucker wei- 
tergibt, sondern sie in einem Buffer sammelt und pe- 
riodisch immer wieder ein Zeichen an den Drucker 
ausgibt. 

Dadurch spart man sehr viel Zeit. Beim Ausdruck des 
Basicladers zu “PRINTED MATTER“ mußten wir 
ganze 1,5 Sekunden warten, bis wir weiterarbeiten 
konnten. Der Drucker ratterte noch einige Minuten 
lang weiter, während wir schon diese Dokumenta- 
tion schrieben! 


2. Der Steuerzeichenmaskierer: 


Ein großes Problem beim Ausdruck von Programm- 
listings sind immer wieder die in z.B. Basiclistings ent- 
haltenen Steuerzeichen, mit denen man beim CPC 
sehr bequem all die Bildschirmsachen wie Schreibfar- 
be, Hintergrundfarbe, Mode usw. usw. steuern kann. 
Beim konventionellen Ausdruck gingen diese Zeichen 
immer hoffnungslos verloren. “PRINTED MATTER“ 
maskiert diese Steuerzeichen bei der Druckerausgabe 
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bei Bedarf so, daß die Codes leicht lesbar und auch 
wieder identifizierbar sind: der Code <CTRL><A> 
(ASCII 1) erscheint als unterstrichenes “A“ <CTRL> 
<B> als unterstrichenes ““B‘‘ usw. Nicht maskiert 
werden die Zeichen LF (Zeilenvorschub) und CR 
(Wagenrücklauf), weil eine Maskierung dieser Zeichen 
den normalen Betrieb erheblich stören würde. 


3. Die Alternate-Routine: 


Wer schon einmal auf PCs programmier that, kennt 
dies genauso wie auch die Idee eines Softspoolers: 
die Bildschirmausgabe wird gleichzeitig auf dem 
Drucker ausgegeben. Dies kann unheimlich nützlich 
sein, möchte man z.B. den Inhalt seiner Diskette 
schwarz auf weiß haben oder die Helpseite aus der 
Textverarbeitung beim Arbeiten vor sich liegen haben. 
Die Ansteuerung obiger Routinen geschieht über 
insgesamt acht RSX-Befehle, die im folgenden be- 
schrieben werden. Alle Befehle sind mehr oder weni- 
ger frei kombinierbar. 


'SPOOL ‚Bufferadr., Länge 

Mit diesem Befehl wird der Druckerspooler aktiviert. 
Die zu druckenden Zeichen werden nun nicht mehr di- 
rekt auf den Drucker ausgegeben, sondern in den 
Buffer geschrieben und von einer Interruptroutine 
ausgegeben. Ist der Buffer voll, wird gewartet bis 
wieder Platz für das nächste Zeichen ist oder die 
<ESCAPE> -Taste gedrückt wurde. 


'SPOOL.OFF 

Dieser Befehl schaltet den Druckerspooler aus. Die 
Routine wartet intern, bis alle Zeichen im Buffer aus- 
gegeben wurden oder die <ESCAPE> -Taste gedrückt 
wurde. 


'FLASH 

Dieser Befehl leert die Druckerwarteschlange vollkom- 
men. Dies ist nützlich, um z.B. einen Ausdruck abzu- 
brechen. 


'FREE,cIntegervariable 

Mit dieser Funktion wird die Anzahl der freien Byte 
in der Druckerwarteschlange in der Integervariablen 
zurückgegeben. Ist die Spoolroutine nicht aktiviert, 
wird der Wert —] zurückgegeben. Vor Aktivierung 
des Befehls muß die Integervariable unbedingt auf 
Null gesetzt werden (z.B. i%=0). 


'MASK.ON 

Die Steuerzeichenmaskierung tritt sofort in Kraft. 
Auch der Teil, der nachher in der Druckerwarteschlan- 
ge steht, wird entsprechend maskiert. Maskiert wer- 
den, wie oben beschrieben, alle Zeichen kleiner 
CHRS(32), mit Ausnahme der Zeichen LF (10) 

und CR (13). 


!IMASK.OFF 

Die Steuerzeichenmaskierung wird sofort außer 
Kraft gesetzt. Auch die Zeichen, die schon in der 
Warteschlange stehen, aber noch nicht gedruckt wur- 
den, werden nicht mehr maskiert. 


'PRINT.ON 

Die Alternateroutine wird aktiviert. Alle Bildschirm- 
ausgaben werden automatisch auch ausgedruckt. 
Nicht ausgedruckt werden die Eingaben. 


'PRINT.OFF 
Die Alternateroutine wird desaktiviert. 


(JE) 


LISTING 


RITTER: 


1 

2ER PRINTED MATTER * 
3 ’%* voN * 
4 '%* MICHAEL FOLZ * 
5 ’* FUER * 
6 '% SCHNEIDER AKTIV * 
7 '%* CPC 464/664/6128 JEX 
EI RRRRRRHRTHKTTHRTTRKKTTTHKTIKRRRRK 


9 REH 

18 MODE 2:PRINT”Lade Binaerdaten zu PRIN 
TED MATTER, bitte Geduld.”:PRINT 

20 MEMORY &9FFF 

38 FOR I=0 TO &2B2 STEP 818:2=08:FOR J=1I 
TO It&F:READ A$:POKE J+t&ABBO ‚VAL(”&”+A$) 
:2=2+VAL("&”"+A&):NEXT J:READ Ag:IF VAL(” 
&”+As)<C)Z THEN GOTO 198 

40 NEXT 

52 PRINT "PRINTED MATTER korrekt geladen 
.”:PRINT:PRINT:INPUT ”"Binaer-Programm sp 

eichern (j/n) ”;A&:IF UPPER$S(A$)="J”THEN 
SAVE ”Pm” ,b ,‚8AQB00,&2A8 

62 PRINT:PRINT:PRINT"Liste der PRINTED M 
ATTER Befehle:”:PRINT 

78 PRINT”/SPOOL,Bufferstart ‚Buffer laenge 
"TAB(40)”schaltet Soft-Spooler ein.” 

8@ PRINT”/SPOOL.OFF"TAB(48)"”schaltet Spo 
oler aus, druckt noch fertig.”; 

90 PRINT"/FLASH"TAB(40)”leert den Spoole 
rbuffer voellig.” 

108 PRINT”/FREE ,‚@Integervariable”TAB(48) 
”gibt freien Spoolerplatz zurueck.” 

110 PRINT:PRINT”/MASK.ON”TAB(4@)"maskier 
t Steuerzeichen beim Ausdruck.” 

120 PRINT”/MASK.OFF"TAB(48)”schaltet Ste 
uerzeichenmaskierung ab.” 

130 PRINT:PRINT”/PRINT.ON”’TAB(48)”gibt B 
ildschirmausgaben auf Drucker aus.” 

140 PRINT”/PRINT.OFF"TAB(48)"”schaltet pa 
rallele Druckerausgabe ab.” 

15@ PRINT:PRINT”(C) ESCape! Software 198 
?, geschrieben von Michael Folz.”:CALL & 

ABBO:END 

160 CLS:PRINT”Checksum error in Zeile”;& 

C8+ (I/8&10)x8A;” !!1!”:END 

178 DATA 21,1C,Ad,01,28,AB,CD,D1,BC,21,7 
2,AB,11,81,A0,06,0663 

1808 DATA 81,8E,FE,CD,D7,BC,3E,C9,32,08,A 
2,C9,00,00,20,00,068F 

190 DATA 3A,AQ,C3,F4,A0,C3,40,A1,C3,58,A 
1,C3,81,A1,C3,DD,BAl6 

200 DATA AIl,C3,04,A2,C3,2A,A2,C3,48,4A2,5 
3,50,4F,4F,CC,53,0746 

210 DATA 50,4F,4F,4C,2E,4F,46,C6,46,,4C,4 
1,53,C8,46,52,45,058E 

220 DATA C5,4D,41,53,4B,2E,4F,CE,4D,41,5 

3,4B,2E,4F,46,C6 ,O5Fi 

230 DATA 50,52,49,4E,54,2E,4F,CE,508,52,4 
9,4E,54,2E,4F,46 ‚0528 

240 DATA C6,008,00,00,00,00,7F,22,00,00,0 

e,00,00,00,00,00,0145 


250 DATA B8,3A,99,A2,B7,C8,ED,5B,93,A2,7 
A,B3,C8,06 ,F5 ,ED,B94E 
260 DATA 78,E6,40,C0,1B,ED,53,93,A2,ED,5 
B,91,A2,13,ED,53 ,88BC 
270 DATA 91,A2,ED,5B,95,A2,1A,2A,8F,A2,1 
3,B7 ‚ED,52,30 ‚84 ‚0764 
280 DATA ED,5B,8D,A2,ED,53,95,A2,CD,7B,A 
2,F3,C9,E5 ,D5 ‚5F ‚BAAD 
290 DATA 2A,91,A2,7D,B4,20,07 ,CD,5D,A2,2 
0,24,18,F2,2B,22,061C 
300 DATA 91,A2,2A,93,A2,23,22,93,A2,7B,E 
D,5B,97,A2,12,13,072D 
310 DATA 2A,8F,A2,B7 ,LD,52,30,04,ED,5B,8 
D,A2,ED,53,97 ‚A2 ,8875 
320 DATA DI1,E1,37,C9,FE,02,C2,9C,A2,3A,9 
9,A2,B7 ,C4,6D,A2 ,09Bl 
330 DATA DD,66,03,DD,6F,02,DD,56 ,01,DD,5 
E,00,22,8D,A2,22,8675 
340 DATA 97 ,A2,22,95,A2,ED,53,91,A2,19,D 
A,9C,A2,22,8F ‚A2 ‚0889 
350 DATA 21,00,00,22,93,A2,21,2B,BD,11,7 
B,A2,01,03,00,ED,04A0 
360 DATA BO,EB,11,2B,BD,01,03,00,ED,BO,3 
E,FF,32,99,A2,C9 ‚07A8 
370 DATA 34,99 ,A2,B7 ,C8,CD,6D,A2,AF,32,9 
9,42,21,7B,A2,11,083B 
380 DATA 2B,BD,01,03,00,ED,BE,C9 ,3A,99,A 
2,B7 ,C8 ,AF,32,99 ,07C0 
390 DATA A2,2A,8D,A2,22,95,A2,22,97,A2,E 
D,5B,8F ,A2 ,EB,B7 ‚B8CA 
480 DATA ED,52,22,91,A2,21,00,00,22,93,A 
2,3E,FF,32,99 ,A2 ‚86 B6 
410 DATA C9 ,FE,81,C2,9C,A2,DD,6E,00,DD,6 
6,01,3A,99,A2 ‚,B7 ‚0883 
420 DATA 20,05,11,FF,FF,18,04,ED,5B,91,A 
2,73,23,72,C9 ‚FE ‚8794 
430 DATA 20,D2,D7 ,Al,FE,BA,CA,D7 ,Al,FE,O 
D,CA,D7 ‚Al ,F5 ,C6 ‚BABC 
440 DATA 40,F5,3E,1B,CD,D7 ‚Al ,3E,2D,CD,D 
7,Al,3E,31,CD,D7 ‚0896 
450 DATA Al,F1,CD,D7 ,Al,3E,1B,CD,D7 ‚Al ,3 
E,2D,CD,D7 ‚Al ,3E ‚0963 
460 DATA 30,CD,D7 ,Al,F1,37 ,C9 ,CD,81,A2,3 
0,FB,C9 ,3A,9A,A2 ‚09C0 
470 DATA B7 ,CO,21,2B,BD,3A,99,A2,B7,28,0 
3,21,7B,A2,11,81,064A7 
480 DATA A2,01,03,00,E5,ED,BO,EB,D1,01,8 
3,00,ED,BO,3E FF ,07C2 
490 DATA 32,9A,A2,C9 ,3A,9A,A2 ,B7 ,C8 ,AF ‚3 
2,9A,A2,11,2B,BD,0842 
500 DATA 3A,99,A2,B7,28,03,11,7B,A2,21,8 
1,A2,01,03,00,ED,05BA 
510 DATA B0,C9,CD,2B,BD,30,FB,C3,87 ,A2,3 
A,9B,A2,B7 ‚CO ,3E ‚0971 
520 DATA FF,32,9B,A2,21,5A,BB,11,87,A2,0 
1,03 ,00,E5 ‚ED,BO ‚0764 
530 DATA EB,D1,01,03,00,ED,B2,C9 ,3A,9B,A 
2,B7 ,C8,AF,32,9B,0898 
540 DATA A2,21,87 ,A2,11,5A,BB,01,03,00,E 
D,BO,C9,21,F3 ,B4 ,0744 
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550 DATA 34,06 ,20,FE,80,28,03,21,3D,B6 ,C 
8,56 ,C9,2A,93 ,A2 ‚0646 
560 DATA 7D,B4,C8,CD,5D,A2,C2,58,Al,18,F 
2,00,08 ,00,C3,BD,080A 
578 DATA AB,00,00,00,C3,9F,Al,00,00,28,C 
3,22,42,00,00,00,0424 
538 DATA 00,00,00,00,00,00,00,20,00,00,8 
0,00,CD,00,B9 ,3A,01C8 
590 DATA 06,00,1E,05,FE,80,CA,94,CA,FE,7 
B,7B,CA,58,CB,C3 ‚0873 
608 DATA 55,CB,00,00,00,00,00,00,00,00,0 
2,00 ,00,00,00,00,0120 


Achtung! 


Schneider aktiv 
heißt jetzt 


SCHNEIDER-WELT! 


Quickcopy 


Diesmal stellen wir Ihnen ein Kopierprogramm für 
den Kassettenbetrieb vor, das unser Autor Michael 
Gruber für Sie geschrieben hat. Es läuft auf dem CPC 
464. 


Das Programm kopiert alle ungeschützten Programme 
von Kassette auf Kassette. Aber keine headerlosen 
oder mit Speedlock geschützten Programme. 

Zuerst muß die Originalkassette eingelegt werden. Es 
wird alles in den Speicher geladen (Basic und MCode). 
Ist das Programm fertig eingelesen, wird das Menü 
angezeigt. 

Sie haben dann folgende Optionen: 

(S)elektivkopie 

Normale (K)opie 

(L)aden 

(G)eschwindigkeit 

(Info 

(E)nde 

Geben Sie “S“ ein, wird der Block angezeigt und Sie 
haben die Möglichkeit, den Block (a)bzuspeichern, 
das (F)ile oder den (R)est abzuspeichern. Das File ist 
zu Ende, wenn der nächste Block die Nummer I trägt. 
Wollen Sie den Block überspringen, so geben Sie 
(w)Jeiter ein. 

Wenn beim (L)aden, eines Programms ein Lesefehler 
auftritt, so wird man gefragt, ob weitergeladen wer- 
den soll oder nicht. 

Mit dem Menüpunkt “Geschwindigkeit‘ kann man 
zwischen 1000, 2000 und 3000 Baud wählen. 

Bei der Option “ Info“ können Sie sich alle Informa- 
tionen anzeigen lassen, die für den Kassettenbetrieb 
wichtig sind. Es wird nur der Header geladen, aber 
nicht geprüft, ob ein Lesefehler auftritt. 

Ein Hinweis zum Abtippen: Bitte nach dem Abtip- 
pen das Listing nicht starten, sondern erst absaven. 
Denn sonst kann Ihnen passieren, dafs die Abtipp- 
arbeit bei fehlerhaften Eingabe abstürzt und Ihre 
Arbeit umsonst war. 


_ LISTING 


IE RRRRRRKÄ RT RR KR Ä R R RR RR RAR RR RAR FH ER 
SDR aUICKCOFT xx 
Sa RK VON *%* 
Ja 8% NHICHAEL GRUBER *% 
5a xx FÜUER #% 
[01 7 2 SCHNEIDER AKTIV xx 
I EpPc 464 JERK 
DA RKKKKRNKHN KHK KHK KK RK RE X 
160 REM auf Kassette e:instelien 

I78 CALL &BD37? 

ISB REN CHRE(I) => NA 

IPB KEN CHRS(8) =) °“H 

Sad REM CHRE(II) => °K 

210 REM CHRE(2I) =\ X 

220 DIN x(5) ,dat$(6) 

230 REM Dat»sibestimmune 

24 FER i:A 705 

250 RFAD Aathli) 

2RA NEXT 

278 DATA SBASICK,%PRND  RASICH SMCODES,'M 
CODE(PRO.Y’ (SCREEN, 3SCREEN) ,KASCIIK 


22 DEF FNdeekladr )=255%XPEiKiadrt 1 )+PEEK 
tadr) 

292 PAPER B 

320 CALL &BC71 

318 OPENOUT”’GRUBER” 

320 REM Achtung ! Fuer Diskettenbenutzer 
: Mur Befehl "/dir” eingeben, kein "/dis 
era 

330 IF PFEK(8ACE1)=8C9 THEN POKE 8&B992,8 
8:POKE &B093,8C0:POKE &B094,80:POKE &BB9 
5,8D8:CLOSEOUT ’464 BUFFER ===) #Cd80 
340 IE PEEK(SACBL)C>&C? THEN POKE &5076, 
8B:POKE &B077 ,‚8CO:POKE &B078,80:POKE &B8 
79 ,8&DA:CLOSEOUT '664/6128 BUFFER ===) #C 
PLI 
3580 
360 
370 
332 
2378 
400 
418 
428 


INK 3,1 

INK 8,13 

INK 1,26 

INK 2,2 

MODE 1 

BORDER 2 

LÖCATE 5,25 

PRINT"”(C) Michael Gruber 17365 (2.2 

438 
448 
5A 
458 

470 

480 


LOCATE 1,1 

PRINT"Michael Gruber” 
PRINT”Albert-EFinstein Str. 
PRINT”611@ Dieburg” 
PRINT"Tel. : 06071/22519" 
LOCATE#1,14,24 
PRINT#1,CHRS (24)”Ladevorgang "CHRE (24 


FL 


REM Kasten zeichnen 
PAPERH2,2 
WINDOW#2,1,40,5,5 
CLS#2 
WINDOW#2,1,408,23,23 
CLS#2 
WINDOW#2,1,1,6,22 


LISTING 


570 PAPER#2,2 

580 CLS#2 

598 WINDOW#2 ‚40 ,48,6 ,22 
608 CLS#2 

618 WINDOW 2,39 ,6,22 


620 REM %%%* Variablen *** 
630 REM Startadresse freier Speicherplat 


640 ladeadr=8&2280 

650 REM Endadresse freier Speicherplatz 
6608 endadr=&9EFB 

678 REM Startadresse MNcode 

680 mcode=-&B2L2 

690 REM Startadresse Buffer fuer Info 
708 bufferadr=8&ACA4 

710 REM Variable If abspeichern in Ifadr 
720 Ifadr=&BFOl 

7308 REM Eine adr(B (oder > #7FFF) 

740 IF ladeadr<8 THEN ladeadr=ladeadr+2“ 


750 IF endadr(@ THEN endadr=zendadr+t2”16 
760 IF bufferadr‘Q THEN bufferadr=buffer 
adr+2*16 

778 IF ladeadr<(® THEN ladeadr=ladeadr+2” 
16 

780 IF Ifadr<8 THEN Ifadr=Ifadr+2“16 

790 REM Ladefehler ? 

8008 IF PEEK(8)=281 THEN If=FNdeek(Ifadr) 
:POKE 0,1:G0SUB 2238 

810 REM xxx MNcode #%%* 

820 REM fuer laden und speichern 

830 DATA 21,”X”,”"X”,11,”X”,”X”,3E,”X”,CD 
‚-X”,BC,32,00,BF,C9 

840 DATA ”,” 

852 i=mcode 

860 READ a$:IF a$="," THEN 908 

870 IF a$="X”THEN x(a)=i:a=a+1:GC0TO 898 
880 POKE i ,VAL("&”+a$) 

898 i=i+1:G0TO 868 

908 REM x Start * 

918 PAPER 3:CLS 

920 POKE x(4) ,816 

930 st=ladeadr 

940 MEMORY st-1 

950 ost=st 

960 1=848 

970 POKE x(5),8&Al 

980 ON BREAK GOSUB 1598 

998 CALL &BC6E 

1808 c=8&2C:1=-848:6G0SUB 1490:60SUB 1450 
IB1lB IF If<)B AND PEEK(&BFER))E THEN PRI 
NT”(Ladefehler)”:st=ladeadr :GOTO 998 
1020 IF PEEK(&BFB@))O THEN PRINT”(* Lade 
fehler” ;PEEK(&BFOA) ;”x*)” :st=st-8&40:G0T0 
968 

1838 c=&16:teile=teile+1:G0OSUB 1498 

1848 IF If<)Q AND PEEK(&BFEB))O THEN PRI 
NT”(Ladefehler)”:teile=teile-1:st=ladead 
r :GOTO 998 

10858 IF PEEK(&BFOB)>B THEN PRINT”%* Ladef 


ehler” ;PEEK(&BFBB);”"*"”:IF teile=1 THEN 2 
128 ELSE teile=teile-1:G0T0 1688 

1860 GOSUB 1888 

1078 6GOTO 998 

1080 REM *%* Auswertung *%* 

1098 CALL &BC71 

11008 a$="" 

1110 IF PEEK(x(5))=&Al AND If<)O THEN FO 
R i=8 TO 63:a$=a&+CHRE(PEEK(i+rost)):WEXT 
:IF aS<)na$ THEN ost=ladeadr :st=ost:teil 
e=teile-1:RETURN 

1120 IF PEEK(x(5))=&Al THEN If=8 

1138 CLS 

1148 IF PEEK(ost+23)<)@ THEN PRINT”Erste 
r Block” ;SPC(13); 

11508 IF PEEK(ost+17)<3@ THEN PRINT”Letzt 
er Block”; 

1168 IF PEEK(ost+23)<3B OR PEEK(ost+17)X 
>08 THEN PRINT 


1178 PRINT”"Block Mummer ...... ”:PEEKCost 
+16) 
1180 PRINT”Art .....222c een u 


1190 IF PEEK(ost+18)<7 THEN PRINT dat$(P 
EEK(ost+18)) ELSE PRINT”???” 

12008 IF PEEK(ost+18)=1 THEN POKE ost+18, 
0’Save””,p aus 

1210 IF PEEK(ost+18)=3 THEN POKE ost+18, 
2’Mcode p. aus 


1220 PRINT"Laenge ............ ":HEXS$ (1) 
12308 PRINT”Dateilaense ....... ”+HEXS(FN 
deek(ost+24)) 

1248 PRINT”Startadr (Buffer)... ";HEX$(os 
t) 

1258 PRINT”Startadr (Block) .. ”;HEXS(FN 
deek(ost+2]1)) 

1260 PRINT"”Aufrufadresse ..... ”sHEXS(FN 
deek(ost+26)) 

1278 PRINT"Bloecke ........... 2 


1280 bl= INT (Fdeek (05 +24) /2848) 

1298 IF bi=Fädeek(ost+24)/2048 THEN PRIN 
T bl ELSE PRINT bl+1 

1388 PRINT”Teil ....2cceueee. ”;teile 
1318 PRINT Test ..0ueleaaenan . 

1320 FOR i=28 TO 45:PRINT CHRS (L)CHRS (PE 
EK(ost+i));:WEXT:PRINT” 
.. ”;:FOR i=48 TO 65:PRINT CHRS(I)CHRS(P 
EEK(ost#+i));:NEXT 

1338 PRINT”Name .............. Ze 

1348 FOR i=8 TO 15 

1350 IF PEEK(i+ost)<)O THEN PRINT CHR& (1 
)CHR&(PEEK(itost)); 

1360 NEXT 

1370 PRINT 

1380 PRINT 

1390 IF PEEK(x(5))=&Al THEN st=strl 

1408 IF st)zendadr AND PEEK(x(5))=&Al TH 
EN PRINT”Memory full”:GOTO 1598 

1410 IF PEEK(x(5))=89E AND sel=8 THEN PR 
INT SPC(18) ;"wird abgespeichert” :RETURN 
1420 IF PEEK(x(5))=&Al THEN PRINT SPC(13 


. er ren. 
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LISTING 


)”uurde geladen” LSE 18780 

1430 ost=st 1898 IF a$="1"THEN SPEED WRITE 8:60T0 15 
1440 RETURN 98 

1458 REM % Laenge | festlegen * 1980 IF a$="2”THEN SPEED WRITE 1:60T0 15 
1468 I=Fldeek(ost+19) 98 

1470 IF PEEK(x(5))=&Al THEN st=st+&40 1910 POKE &B8D1,255:POKE &B8D2,21:POKE & 
1480 RETURN B8D3,1 

1498 REM x%*%* Block/code Poken und laden 1920 GOTO 1598 

LEE 1938 REM x Speichern # 

1508 a=INT(st/256) 1948 FOR s=1 TO teile 

1510 POKE x (8) ,‚st-a%*256 1952 GOSUB 1458 

1528 POKE x(1),a 1960 GOSUB 1988 

1530 a=INT(1/256) 19708 IF sel=1 OR sel=2 THEN GOSUB 2338 
1548 POKE x(2),1-ax256 1980 1=8&480 

1550 POKE x(3),a 1990 c=&2C 

1568 POKE x(4),c 20008 CALL &BC6E 

1570 CALL mcode 2010 GOSUB 1498 

1580 RETURMW. 2028 st=st+840 

1598 REM x%%* Menue #%% 2030 GOSUB 1458 

1688 IF teile=@ THEN RETURN 2040 c=816 

1618 CALL &BC71 2050 GOSUB 14980 

1628 a=FRE(”")’Garbage Collection 2068 CALL &BC71 

1630 IF If=@ AND PEEK(&BFOB))O THEN I1f=o 2078 st=strl 

st 2088 ost=st 

1648 POKE &BFOB,8 2090 IF al<>@ THEN POKE &BC6E,al:POKE mc 
1658 LOCATE#1,13,24 ode ‚a2 

1660 PRINT#1,” "CHR&(24)”Auswahlsmenue”C 21008 NEXT s 

HRS (24) ” 2118 GOTO 1598 

1670 st=ladeadr :ost=st 2120 REM %%%* Lesefehler: W(J/N) x#%* 

1680 POKE x(5),&9E 2138 CALL &BC71 

1690 PRINT CHRS(11)”(S)elektiv- ’ Normal 2140 IF If=8 THEN If=ost 

e (K)opie, (L)aden(G)eschwindigkeit, (I) 2158 teile=d 

nfo, (E)nde: ”; 2160 POKE x(5),&Al 

1788 a$=UPPER&(INKEY$):CALL &BB81 2178 CLS 

1710 IF a$=""THEN 17880 2180 PRINT”Weiterladen (J/N): ”; 

1728 PRINT CHRS (1) ;a$; 2190 a$=UPPERS(INKEY$) 

1730 IF a$="S” THEN LOCATE#1,13,24:PRINT 2200 IF a$="N”THEN RUN 

#1,CHR$S(24)” Selektivkopie "CHR&(24):sel 2210 IF a$="J”THEN 2500 

=1:60T0 1938 2228 GOTO 2198 

1748 IF a$="K” THEN LOCATE#1,13,24:PRINT 2230 REN % Weiterladen * 

#1 ,CHR&(24)”Speichervorgang”"CHRS(24):sel 2240 na$="”"” 

=0:60T0 1938 2258 CLS 

1758 IF a$="L”AND If=0 THEN RUN 2268 FOR i=8 TO 63 

1760 IF a$="L”AND If<)8 THEN 2478 2278 na$=na$+CHRS(PEEK(i+!f)) 

1770 IF a$="G”THEN 1818 2288 NEXT 

1780 IF a$="E”THEN PEN 1:PAPER 3:CLS:PRI 2290 LOCATE#1,14,24 

NT”ENDE !!!”:END 2308 PRINT#1,CHR&(24)”Weiterladen”CHRS(2 
1798 IF a$="1” THEN POKE x (5) ,&Al:c=&2C: a" 

I=&40:ost=bufferadr :st=0st:GOSUB 1498:6G0 2310 st=ladeadr 

SUB 1450:60SUB 1130:G0T0 1598 2320 RETURN 

18008 PRINT CHR$(8);:GOTO 1788 2330 REM Selektivkopie 

1810 LOCATE#1,13,24 2348 IF sel=2 AND PEEK(ost+23)=@ THEN RE 
1828 PRINT#1,” ”"CHRS(24)” Baudrate "CHR TURN 

a N 2350 IF sel=2 THEN sel=1 

1830 PRINT 2360 PRINT CHRS(11)”(A)bspeichern, (F)il 
1848 PRINT”(1) 1888 Baud” e- , (Rlest kopie-ren, (Weiter, (E)nde: 
1858 PRINT”(2) 2008 Baud” 2 

1860 PRINT”(3) 3600 Baud” 2378 b&=UPPERS (INKEY$) 

1878 a&=INKEYS:CALL &BB81 2380 CALL &BB81 

1880 IF a$)="1”AND a$(="3”THEN PRINT a$E 2398 IF b$=""” THEN 2378 2» 
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| LISTING 


2400 PRINT CHRE(8ICHRE(I) ;b$; 

2410 IF b$="A” THEN RETURN 

2428 IF b$="W” THEN al=PEEK(&BC6E) :a2=PE 
ER (mcode):POKE mcode ,2B1:POKE &BC6E,201: 
RETURN 

2430 IF b$="E” THEN 1598 

2440 IF b&="R” THEN sel=0:RETURN 

2450 IF b$="F” THEN sel=2:RETURN 

24608 GOTO 2378 


2470 REN Bei Ladefehler merken, sonst Ne 
ustart 


2480 GOSUB 2128 

24908 IF If=Q THEN POKE 8,1:RUN 
2500 REM Ladefehler markieren 
2510 POKE 8,281 

2520 a=INT(17/256) 

2530 POKE Ifadr ,!f-256%a 

2540 POKE Ifadr+1,a 


: 2552 RUN 


2560 CLEAR:SAVE”!QUICKCOPY 2.8”:60T0 256 
8 


Überweisungen 


Mit diesem Programm unseres Autors Heinz Neuer 
haben Sie die Möglichkeit, Überweisungsformulare, 
wie sie bei den Banken und Sparkassen verwendet 
werden, ohne Probleme auszufüllen und zusätzlich 
diese Daten noch abzuspeichern. Außerdem kön- 
nen Sie sich noch einen Kontrollausdruck herstel- 
len lassen. 

Das Programm weist drei Menüpunkte aus. 


1. Vordruck ausfüllen 


Nach Anwahl dieser Option erscheint die Grafik des 
Überweisungsvordruckes auf dem Bildschirm und 
kann ausgefüllt werden, wobei vorher zwischen zwei 
Absenderkonten (falls Sie zwei haben) gewählt wer- 
den kann. Die maximale Länge der einzelnen Felder 
wird jeweils berücksichtigt. 

Nach einer Druckerabfrage wird dann das Überwei- 
sungsformular beschrieben. Danach besteht die Mög- 
lichkeit eines Kontrollausdrucks im Format der nor- 
malen Kontoauszüge für die eigenen Unterlagen. An- 
Sa werden die Daten auf Diskette abgespei- 
chert. 

2. Gesamtliste 


Rufen Sie diesen Menüpunkt auf, so werden in Listen- 


form alle bisher abgespeicherten Überweisungen auf 
dem Bildschirm angezeigt. 
3. Programmende 


Dieser Menüpunkt beendet das Programm innerhalb 


von 10 Sekunden. In diesem Zeitraum kann mit Hilfe 
der Break- und Tab-Taste zum Menü zurückgekehrt 
werden. 

Noch ein Hinweis: 

Nach dem ersten Start erscheint kurz die Fehlermel- 
dung ‚Datei nicht vorhanden“, da ja beim Eirststart 
noch keine Datei angelegt wurde. Nach kurzer Zeit 
springt das Programm dann selbsttätig ins Menü und 


ID RRRRRRRRRRRRRTRRKRR RR RR KR 
’ 


20 ’* UEBERWEISUNGEN * 
30. ’* VON * 
40 '* HEINZ NEUER * 
5a '* FUER * 
68 '* SCHNEIDER AKTIV * 
61 ’%* CPC 664/6128 JEX 


E2 KHK RRRRRRRRRRRRKKKK RK 

70 OPENOUT ”DUMMY” :CLOSEOUT 

80’ 

90 "UMLAUTE 

100 ’ 

110 SYMBOL AFTER 98 

120 SYMBOL 91,90,60,102,102,126,102,102, 

f) 

130 SYMBOL 92,186,108,198,198,198,108,56 
f) 

7 

148 SYMBOL 93,102,0,102,102,102,102,60,0 


150 SYMBOL 123,72,0,120,12,124,204,118,8 
160 SYMBOL 124,36,0,60,102,102,102,60,8 
170 SYMBOL 125,68,0,102,102,102,102,62,8 
180 SYMBOL 126,56,108,108,108,102,118,10 
8,96 
198 °’ 
208 "WINDOWS 
210 ’ 
220 MODE 2:BORDER 8 
238 WINDOW#B,1,80,5,22:WINDOW#1,1,80,1,5 
:WINDOW#2,2,79,2,3 
240 WINDOW#4,1,80,23,25:WINDOW#5 ,2,79,24 
‚24 :WINDOW#6 ‚72,79 ,3,3 
258 PRINT#1,CHRS (158) ;STRING$ (78,154) ;CH 
R& (156); 
260 PRINT#1,CHRS (149) ;TAB(88) ;CHR$ (149); 
CHRS (149) ;TAB(88) ;CHRS (149); 
278 PRINT#1,CHRS (147) ;STRINGS (78,154) ;CH 
R$ (153) 
280 PRINT#4 ,CHRS (158) ;STRINGS$ (78,154) ;CH 
R& (156); 
298 PRINT#4 ,CHRS (149) ;TAB(88) ;CHRS (149); 
308 PRINT#4,CHRS (147) ;STRINGS (78,154) ;CH 
RE (153); 
310 ’ 
328 ’INITIALISIERUNG USW. 
330 ’ 
348 ’ 
350 KN1=12345678 

’HIER EIGENE KONTOMUMMER 1 EINSETZEN 
360 KN2=87654321 

’HIER EIGENE KONTONUMMER 2 EINSETZEN 
370 NAMS="HEINZ NEUER 6953 GUNDELSHEIH” 

"HIER EIGENE ANSCHRIFT EINSETZEN 

380 DT$="UBERWEIS.DAT” 
398 DIM NU(28) ‚DAT$ (20) ,E$(28) ‚VZ18(28), 
V228 (29) ‚V23$ (20) ‚BETR(28) 
400 KEY 159,”G0OTO 450”+CHR$ (13) 
410 KEY DEF 68,08,159 
420 I$=CHR$ (24) 


kann normal benutzt werden. (JE) 4308 ON ERROR G0TO 1728 


32 


LISTING 


448 OPENIWM ZTS:1INPUT#? ,N:FOR I=! TO M:IN 
PUT#9 ,KUCI) ,DATSCI) ,ESCI) „VZIECI) ,VZ28 (I 
» ,VZ38 (1) ,BETRÜID NEXT :CLOSEIN:GOTO 488 
450°’ 

460 'MENUE 

470’ 

480 CLS:CLS#5:CLSA2:SOUND 1,508,50,15:PRI 
NT#2,” ”;I$;” IBERWEISUNGEN 
"18 ;TAB(S7)CHRE(164);" by ";18;” Ne ”;I 
%;”"SOFT - 04.87” 

4908 FOR T=25 TO 28 STEP -1:PLOT 158-T,12 
5-T:DRAW 504+T ,125-T:DRAW 500+T ,275+T :DR 
AW 150-T,275+T:DRAW 158-T ,125-T:NEXT 

5a@ LOCATE 20,7:PRINT "AUSFILLEN DER ]BE 
KWEISUNGSVORDRUCKE (13% 

510 LOCATE 28,7:PRINT"GESAMTLISTE ALLER 
JBERWEISUNGEN (23° 

520 LOCATE 2@,!1:PRINT”PROGRAMMENDE / RE 
SET (3)” 

530 PRINT#5S,” >>333> ”;I8;” BITTE WÜHLEN 
”":[8;TABi40)"22>3)> NACH ";1$;” BREAK ";1 
$;” MIT ”;18;” TAB ";18;” ZUM MENUE” 

540 A®=INKETE 

550 ON VAL(As) SOTO 598,1588,1758 

562 EIN,GESL,ENDE 

570 60T0O 542 

5230 

5970 'FORMULAR 

82a 

ala CLS#2:CLS#5:CLS:5SOUMD 1,180,58,15 
620 PRINT#2,” ";I8;” IBERWETITSUN 
GSAUFT DRAG ";:PRINT#2 USING” Mr. 
## ”;Ntl;:PRINT#2,I1$, 

632 MOVE 543,195:DRAW 543,295 :MOVE 543,3 
dJ2:DRAW 96,342 :M0VE 96 ,295:DRAW 96,105: 

OVE 96 ,105:DRAU 543,105 :MOVE 96,134: DRAW 
543,134:MOVE 76 ,133:DRAW 210,133:MOVE ? 
7,133:DRAW 97,104 

642 MOVE 97,105 :DRAW 210,106:MOVE 96,222 
:DRAW 543 ,220:MOVE 543,219:DRAW 417,219: 
MOVE 417 ,219:DRAU 417 ,136:MOVE 415,228:D 

RAW 415,134:MOVE 417 ,136:DRAW 543,136 :MO 

VE 541,136:DRAW 541,228 

650 MOVE 96,247 :DRAW 543,247 :MOVE 227,24 

?7:DRAW 227 ,220:MOVE 428,247 :DRAW 428,295 
:MOVE 543,295:DRAW 96,295:MOVE 246 ,75:DR 

AW 331,75:MOVE 348,75:DRAW 529,75 

660 LOCATE 35,18:PRINT”Datum” 

678 LOCATE 49,18:PRINT"Unterschrift” 

680 LOCATE 14,13:PRINT” Konto Mr. 

690 LOCATE 35,13:PRINT” Auftraggeber ” 

780 LOCATE 14,8:PRINT"”Verwendungszueck ( 

nur f}r Empfinger)” 

710 LOCATE 68,3:PRINT ” DM ” 

720 LOCATE 14,6:PRINT”Konto Empfinger” 
738 LOCATE 31,6:PRINT” bei "” 

740 LOCATE 14,3:PRINT"Empf {Inger (genaue 

Anschrift) ” 

750 LOCATE 56,3:PRINT"Bankleitzahl” 

?6B PRINTRS,"” >>333 ”,18;” BITTE KONTONU 


HMER WCHLEN ",;I8;CHRS(243) ,;,:PRINT#5S,TAB( 
AI RT SKNLSISE? EG? #” ;KN2;1$; 
7a TETE 

ir 

’8ß "EINGABEN 

TE 

82a N$=INKEYE 

sid IF VAL(N$)3=1 THEN KN=KN1:650T0 848 
828 IF VAL(N$)=2 THEN KN=KN2:60TN 848 
830 G0TO 828 

840 I=N+1:NU(I)=KN:PRINT#?2,I$;” VON KONT 
O #”;NUCI);” ”,18:CLS#5:PRIWNT#H5S,” 3333) 
"»I&;” BITTE AUSFILLEN ”;18:PRINT Is 

852 LOCATE 14,5:I1NMPUT”"”,ES(I) 

360 IF LEN(ES(I))>4@ THEN LOCATE 14,5:PR 
INT SPO(SB) :CLS#5:SOUND 1,58,100,15:PRIN 
T#S," >3333 ";:18;" MAX. 40 ZEICHEN ";1$: 
FOR W=1 TO 1@00@:NEXT:GOTO 858 

8/d CLS#5 

880 LOCATE 56 ,5:1NPUT”” ‚BLZ 

890 IF BLZ399999999 THEN LOCATE 56 ,5:PRI 
NT SPCi12):CLS#5:SOUND 1,50,1208,15:PRINT 
#3,” 223222. 75185” MAX; SSSEELLEN 2;183F0 
RW=1 TO 1@08:NEXT:GOTO 888 

908 LOCATE 14,7:1NPUT”” ‚KTOS 

712 IF LEN(KTOS)>10 THEN LOCATE 14,7:PRI 
KT SPC(12):CLS#5:SOUND 1,50,100,15:PRINT 
RS, 22228 75185” MAX: % STELLEN. "518:FO 
R W=1 TO 1808:NEXT :GOTO 908 

720 CLS#5 

732 LOCATE 31,7 :I1NPUT"”,BK$ 

740 IF LEN(BK8)>37 THEN LOCATE 31,7:PRIN 
T SPC(4B) :CLS#5:SOUND 1,52,103,15:PRINTH 


5," 330 "ılsı" MAX, 37 ZEICHEN *;18:FO 
R W=1 TO 1000:NEXT:G0TO 930 
v5 CLS#5 


60 LOCATE 14,10: 1NPUT”" ‚VZ1s(1) 
970 IF LEN(VZI8(1))238 THEN LOCATE 14,10 
:PRINT SPC(48) :CLS#S:SOUND 1,58,108,15:P 
RINTAS,” >3>333 ”;18;” MAX. 38 ZEICHEN "; 
I$:FOR W=1 TO 1908:NEXT:GOTO 968 

#38 LOCATE 14,11:1NPUT”” ‚V228 (1) 

990 IF LEN(VZ28(1))>38 THEN LOCATE 14,11 
:PRINT SPC (48) :CLS#5:SOUND 1,58,100,15:P 
RINT#S,” 33233 ”;18;” MAX. 38 ZEICHEN ”; 
18:FOR W=1 TO 1800:NEXT :GOTO 980 

1008 LOCATE 14,12:1NPUT”" ‚VZ38 (1) 

1010 IF LEN(VZ38(1))>38 THEN LOCATE 14,1 
2:PRINT SPC(48) :CLS#5:SOUND 1,58,100,15: 
PRINTHS,” >>33) ”;18;:” MAX. 38 ZEICHEN ” 
;Is:FOR W=1 TO 198@:NEXT:6OTO 1088 

1920 CLS#5 

1030 LOCATE 55,11:1NPUT”” ‚BETR(I) 

1048 IF BETR(1)>999999 THEN LOCATE 55,11 
:PRINT SPC(13) :CLS#5:SOUND 1,58,180,15:P 
RINT#S,” >33>3> ”;18;” MAX. DM 999999 ”;1 
8:FÖR W=1 TO 1B08:NEXT:50TO 1838 

1050 CLS#5:LOCATE 14,14:PRINT KN 

1050 LOCATE 39,14:PRINT NANS 

167 LOCATE 33,16:1NPUT”" ‚DATS(I) 
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LISTING 


1080 IF LENCDATS(I))IxD8 THEN LOCATE 33,1 
6:PRINT SPC(1B) :CLS#5:SOUND 1,58,180,15: 
PRINT#S,” 33333 ";18;” FORMAT: TT.MM.JJ 
”:18:FOR W=1 TO 1008:NEXT:GOTO 1878 

1098 CLSAS:PRINTAS,"” 32333 ”;18;” EINGAB 
EN RICHTIG ? ” ;18;CHR8 (243) ;" (J/M)” 
1100 RS=UPPERS(INKEYS):IF R&=""” THEN 118 
[) 

1110 IF RS<D”N” THEN PRINT 18:60T0 1138 
1120 IF R$="N” THEN PRINT 18:CLS:GOTO 68 


8 

1130 N=N+1 
Ile ' 

1158 'DRUCKEN 
1160 


1178 DR=VAL(HIDSCBINSCINP(SFSBB),8),2,1) 
)-1 

1180 IF DR THEN CLS#5S:PRINT#S,” 333) ”; 
I8;” AUSDRUCK ”;18:PRINT#8,CHRS(7) ELSE 
PRINT#S,” 22333 ”;18;” DRUCKER NICHT BER 
EIT ”;18;SPC(49):SOUND 1,50,30,15:FOR W= 
1 TO 388:NEXT:FOR W=1 TO IB@:CLS#5:NEXT: 
G0TO 1178 

1190 PRINT#8,ES(I);:PRINT#8,TAB(42)BLZ 
1200 PRINT#8 

1218 PRINT#8,KTO8,;:PRINT#8,TAB(17)Bk$ 
1220 PRINT#8:PRINT#8 

1238 PRINT#8 ‚,VZ1$(I):PRINT#8 ,VZ2$ (I); :PR 
INT#8,TAB(408)"DM ”;:PRINT#8 ,USING”xxHHHH 
„##” ;BETR(I);:PRINT#8,"*%%%” :PRINT#8 ,V23$ 
(D) 

1240 PRINT#8 

1258 PRINT#8,KN;:PRINT#8,TAB(2B)NANg 
1260 PRINT#8:PRINT#8 

1270 PRINT#8 ,TAB(2E)DATS(I):PRINT#8,CHRS 
(?) 

1280 

1298 ' KONTROLLAUSDRUCK 

1300 ' 

1310 CLS#5:PRINT#5,” >>)3)) ”;18;” KONTRO 
LLAUSDRUCK ? ”;18;CHR8 (243) ;” (J/M)” 
1320 AsS=UPPERS(CINKEYS):IF A$="" THEN 132 
[7] 

1330 IF As="J”" THEN CLS#5:PRINT#S,” >))) 
2 ”;18;” NORMALPAPIER EINLEGEN ”;18%;CHR& 
(243) ,TAB(71);18;” TASTE ”;1%:CALL &BB86 
:GOTO 1368 

1340 IF AsK2”J” THEN 1458 

1350 GOTO 1328 

1360 PRINT#8,CHRS (45) ;TAB(88) CHRE(45):F 
OR L=1 TO 5:PRINT#8:NEXT 

1378 PRINT#8,” IJBERWEISUNGSAUFTRAG VON KT 
O#”;KN;” ”;NAMS 

1388 PRINT#8:PRINT#8:PRINT#8 

1390 PRINT#8,”DATUN” ;TAB(1O)”EMPFLNGER”; 
TAB(3B) "VERWENDUNGSZWECK" ;TAB(78)” BETRAG 
(DM)” :PRINT#8 ,CHRS (27 ICHRS(A4S)CHRE (1) ;ST 
RINGS (80,32) ;CHRS (27 )CHRS (4SICHRE (8) :PRI 
NT#8 

1400 PRINT#8,DATS(I);:PRINT#8,TAB(IB)LEF 


TaiErii),173::PRINTRE,TABCZBIVEIE(DD 

1418 PRINT#S,TAB(IB) MIDS(ESı1),18,17);: 
PRINT#S ,TAB(3B)VZ28 (I) :PRINTRS,TAB{lBO) M 
IDsiEs(13,35,15) ;:PRINT#8,TAB(SB)VZ38 (1) 
::PRINTRE ,TABi?B) USING" RRuReR. HR” ;BETR( 


) 

1428 PRINT#8 ‚CHRS (27 )CHRS (45 CHRS (1) ;STR 

ING$ (80,32) ;CHRS (27 )CHRE (45 )CHRS (8) 

1430 FOR L=1 TO 6:PRINT#8:NEXT :PRINT#8 ‚C 

HREÜS#3)3 ;TABÜSBICHRE (JS ICHRL II) 

1448 ' 

1450 ’SAVEN 

1468 ' 

1470 CLS#S:PRINT#S,” >>3>> ”;18;” DATEN 

WERDEN GESPEICHERT ”;18$ 

1480 OPENOUT DT$ 

1498 WRITE#9 ‚N 

1588 FOR I=1 TO N 

1510 WRITE#9 ‚NU(I) ‚DATS(I) ,ESCI) ‚VZIS(I) 

‚VZ28 (1) ‚VZ38\1) ‚BETR(1) 

1520 NEXT 

1530 CLOSEOUT 

1548 DATBAKS=LEFTS(DTS ,8)+”.EAK” 

1550 /ERA,DATBAKS$ 

1560 GOTO 468 

1570 ’ 

1580 "GESAMTLISTE 

1590 

1680 CLS:CLS#2:CLS#5:SOUND 1,100,58,15 

1618 PRINT#2," "IS" GESAMTLIS 

T E ":TAB(38)”1 = KTOR";KNI;" 2 = KTO 

#” ;KN2; 18 :PRINT#2 ,”#” ;TAB(3) "DATUN” ;TAB( 

13)” EMPFLNGER” ;TAB(38) "VERWENDUNGSZWECK" 

;TAB(69) " BETRAG” 

1628 FOR 1=1 TON 

1638 IF MU(I)=KMI THEN NUM=1 ELSE IF WUC 

ID=KN2 THEN NUM=2 

1648 ’IF MUCI)=KN2 THEN NUN=2 

1650 PRINT NUM;TAB(4)DATS(I);:PRINT TAB( 

14) USING” \ \”;ES(1) 

;:PRINT TAB(39) USING” \ 
\”;VZIS(1);:PRINT TAB(78) USIN 

GHHHHHH.##” ;BETR() 

1668 IF I MOD 18=@ THEN CLS#5:PRINT#S,” 

3333) ";18;” TASTE ”;18:CALL &BB18 

1670 NEXT 

1680 PRINT TAB(2)STRINGS (77,154) 

1690 PRINT#S," >>33) ";18;" TASTE = MENU 

E ”;18:CALL &BBB6.:60T0 468 

1708 ’ 

1710 ’FEHLERROUTINE 

1728 °’ 

1730 IF ERR=32 THEN CLS:CLS#5:PRINT#S,” 

33333 ”;18;” DATEI NICHT VORHANDEN / DIS 

KETTENFEHLER ";18:SOUND 1,20,308,15:FOR 

W=1 TO 3008:NEXT:RESUME 468 

1748 CLS:CLS#S:PRINT#S,” 33333 ”;18;” PR 

OGRAMMFEHLER ";IS;ERR;" IN ”;ERL:SOUND 1 

‚20,300,15:FOR W=1 TO 30@0:NEXT :RESUME 4 

58 
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| LISTINGS 


1750 ’ 
1768 'PROGRAMMENDE 

1778 ° 

1780 X=1:CLS#5:PRINT#S,” >>> ”;1$;” IN 
NERHALB 18 SEK. NACH BREAK MIT TAB INS M 
ENUE ";18;CHR$ (243) :WHILE XK11:LOCATEHS, 
57 ,1:PRINT#S,X;:X=X+1:SOUND 1,80,10,15:F 
OR W=1 TO 1080:NEXT :WEND:CALL 8 

1798 ° 


use 


SCHIFFE VERSENKEN 

Das altbekannte Kombinationsspiel, das wohl schon 
jeder einmal gespielt hat, auf einem CPC-Rechner; wer 
hat sich diese Möglichkeit nicht schon einmal ge- 
wünscht, dann aber doch wieder aufgegeben, weil im 
Augenblick gerade kein Spielpartner da war. 

Hier ist nun eine Umsetzung dieses interessanten Spiels, 
das Sie wegen der guten Grafik, der Schnelligkeit und 
der hohen Kombinationsgabe lange vor den Bild- 

schirm fesseln wird. 

Die Bildschirmdarstellung wurde in Mode O geschrieben, 
um möglichst viele Farben zur Verfügung zu haben. 

So wurde es möglich, jedes Schiff in einer Farbe dar- 
zustellen. Die Texte werden jedoch in einem spe- 
ziellen Unterprogramm in kleinerer Darstellung ausge- 
geben, wobei sie leserlich bleiben. 

Nach dem Laden des Programms dauert es eine Weile, 
bis das Titelbild aufgebaut ist. Danach können Sie, 

“r dem eigentlichen Spielbeginn, die Anleitung ab- 
rufen. 


STELLEN SIE IHRE FLOTTE ZUSAMMEN 


Nachdem der Computer seine Flotte aufgebaut hat 
(die natürlich unsichtbar bleibt), sind Sie an der Reihe. 
Fahren Sie in der linken Bildschirmhälfte mit dem 
Joystick oder den Cursortasten umher und setzen Sie 
durch Anklicken mit dem Feuerknopf oder der Copy- 
Taste Ihre Schiffe. Es gibt insgesamt fünf Schiffe, die 
Sie setzen müssen. Diagonales Setzen weist der CPC 
zurück. Eine Eingabe können Sie durch erneutes An- 
klicken wieder rückgängig machen. Die Schiffe kön- 
nen allerdings nur in der umgekehrten Reihenfolge 
des Setzens wieder gelöscht werden. Wenn beispiels- 
weise das Vierer-Schiff gesetzt werden müßte, Sie 
aber das Zweier-Schiff löschen wollen, müssen Sie 
also erst noch das Dreier-Schiff löschen. 
Sind alle Schiffe gesetzt, geht das eigentliche Spiel los. 
Zuerst erscheint dann im Spielfeld des CPCs ein wei- 
ßes Rechteck. Dieses Rechteck können Sie nun dort 
hinfahren, wo Sie ein Schiff des Rechners vermuten 
und dort anklicken. Wenn Sie ein Schiff tatsächlich 
getroffen haben, wird dieses Feld gekennzeichnet und 
die Punktezahl um eins erhöht. Aber die Spielregeln 
kennen Sie ja sicher selbst. Wer zuerst alle Schiffe des 
Gegners versenkt hat, ist Sieger und kann sich in eine 
Highscore-Tabelle eintragen. Da die Punkte des Siegers 
ja immer gleich sind, wird als Kriterium die benötig- 
te Zeit eingetragen. 
Das von uns hinzugefügte kleine Listing zur Erstel- 
lung einer leeren Highscore-Tabelle benötigen Sie vor 
dem ersten Spielen, damit Ihr CPC nicht mit einer 
Fehlermeldung ‚‚aussteigt“. Danach wird dieses Pro- 
gramm nicht mehr benötigt, da ja dann die Tabelle 
vom Hauptprogramm selbständig angelegt und abge- 
speichert wird. 

(JE) 
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u 2 2 5 5 2 2 22.2 2 2 2 22 2 2 222 2 272272 2722 727272727272°77 
27 358 PUZZLE 1 * 
Sa: voX * 
4 MICHAEL KOETHE * 
3 ’* FUER * 
6’ SCHNEIDER AKTIV * 
a: CPC 464/664/6128 ie* 
TREE K 


DIN feld$(9,4),posi(9,2),spiel(9,2),c 

ur (3,3) 

20 RANDOMIZE TIME 

MODE 1:CALL &BC82 

LOCATE 12,12:PRINT”Bitte warten” 

GOSUB 2388 

GOSUB 1558 

GOSUB 1428 

INK 1,18:INK 2,6:1INK 3,3:INK 4,20:INWK 
5,24:INK 6,5,15:IMK 7,9:I0K 10,6::1NK 1 
1,3:IMK 12,20:INK 13,24 

920 SPEED INK 50,58 

100 PAPER 8:MODE 8 

118 LOCATE 5,2:PEN 5:PRINT"PUZZL E”: 

PEN 1 

WINDOW#1,1,11,5,23:PAPER#1,7:CLS#1 

WINDOW#2,14,20,6 ,9:PAPER#2,7 :CLS#2 


’ Felder ausgeben 

160 ’ 

PAPER 7 

FOR i=1 TO 9 
LOCATE posi(i,l),posi(i,2) 
SOUND 1,808,1,,,18 
PRINT USING”\ 


\”;feld$(spiel(i,1),spiel(i,2)); 
NEXT 
DATA 255,254,208,201,200,201,255 ,254 


RESTORE 238 
LOCATE 14,7 
FOR i=2 TO 5 

READ a,b:PEM i 

PRINT CHR& (a) ;CHRS (8) ;CHRS (18) ;CHR 
$(b);CHRE(IL);” ”; 
290 NEXT 
300 PAPER @:PEN 1 
3l0 ’ 
3208 ' Steuerung 
330 ’ 
340 waag=1:senk=1 
358 LOCATE posi (cur (waag ‚senk),‚I)+1,posi 
(cur (waag ‚senk) ‚,2)+2 
36@ PEN 6:PAPER 7:PRINT CHRS(248);:PEN 1 
:PAPER 8 
3708 IF ende THEN 1118 
388 IF NOT INKEY(58) THEN 738 
398 IF NOT INKEY(36) THEN 818 
4088 IF NOT INKEY(9) THEN 498 
4iB IF NOT INKEY(B) AND senk)1 THEN GOSU 
B 1298 


LISTING 


428 IF NOT INKEY\i2) AND senk(3 THEN GOSU 
B 1240 

438 IF NOT INKEY(8) AND waag)1 THEN GOSU 
B 1288 

d4dd IF NOT INKEY(1) AND waagi\3 THEN GOSU 
B 1328 

450 GOTO 358 

460 

470 ' Change 

ET 

490 IF vl THEN 548 

508 vl=cur (waag ‚senk) :v2=waag :v3=senk 
5iQ LOCATE 14,12:PRINT"”Change:”; 

520 LOCATE 14,14:PRINWT cur (waag ‚senk) ;"- 
’ 
530 
540 
550 
560 


GOTO 358 

LOCATE 18,14:PRINT cur (waag ‚senk), 
nl=cur (waag ‚senk) !n2=waag !n3=senk 

IF vlzn! THEN 648 

570 hl=spiel(vl,1):h2=spiel(vl,2) 

580 spiel(vl,!)=spiel(nl,1):spiel(vl,2)= 
spiel(n1,2) 

590 waag=v2:senk=v3 

600 GOSVB 878 

612 waagzn2:!senk=n3 

620 spiel(nl,l)=hl:spiel(nl,2)=h) 

630 GOSUB 878 

640 LOCATE 14,12:PRINT SPACEE (7), 

658 LOCATE 14,14:PRINT SPACES (7); 

660 vl=B:v2=ß:v3=ß:hl=d 

670 ni=B:n2=8:n3=0:h2=0 

680 GOSUB 940 

672 GOTÜ 358 

u 
’/10 ' Feld rechts drehen 

720 

730 spiel(cur (waag ‚senk),2)=spiel(cur (wa 
ag,senk),2)-] 

7408 IF spiel(cur (waag ,‚senk),2)CI THEN sp 
iel(cur (waag ‚senk) ,2)=d4 

7508 GOSUB 878 

768 GOSUB 948 

778 GOTO 350 

780 
790 
820 ' 
810 
ag,senk),2)+1 

820 IF spiel(cur (waag,senk),2))4 THEN sp 
iel(cur (waag ‚senk) ,2)=]1 

830 GOSUB 678 

840 GOSUB 948 

850 GOTO 358 

860 ’ x%%* Feld ausgeben #* 

870 LOCATE posi (cur (waag ‚senk),1),posi(c 
ur (vaag ‚senk),?2) 

880 SOUND 1,800,1,,,18 

890 PAPER 7:PRINT USING”\ 


Feld links drehen 


\”;feld&(spiel(cur (waag ‚senk) 


spielfcur (waag ‚senk),2)=spiel(cur (wa 


‚I),spiel(cur (waag ,‚senk),2));:PAPER 2 
9BB RETURN 

918 ’ 

928 ’ Vergleich auf moegliche Loesungen 
938 ° 

940 RESTORE 1828 

950 ende=| 

9608 FOR x=1 TO 12 

978 READ il,i2,i3,i4 

988 t1=TEST(i1,i2):t2=TEST(i3,i4) 

998 IF ABS(t1-t2)<38 THEN ende=B:x=12 
1208 WEXT x 

IBlE RETURN 

1028 DATA 120,104,132,104,216,104,228,10 
4 

1038 DATA 128,184,132,184,216,184,228,18 
4 

10468 DATA 120,264,132,264,216,264,228,26 
4 

1058 DATA 80,136,80,150,176,136,176,158 
i068 DATA 272,136,272,150,80,216,80,230 
i@7ra DATA 176,216,176,230,272,216,272,23 
[7 

1888 ’ 

I098 ' Ende 

it08 ’ 

Il10 ende=2:PRINT CHR& (7); 

I128 FOR i=1 TO 2@:h&=INKEYS:NEXT 

[138 LOCATE 2,25:PRINT”Noch einmal (J/N) 
1148 hS=UPPERS(CINKEYS):IF h&="" THEN 114 
2 

1150 IF h&="J" THEN GOSUB 1360:60SUB 142 
B:LOCATE 1,25:PRINT CHRS(18):C0TO 178 
1164 IF h$="N” THEN 1188 

1178 GOTO 1148 

11802 CALL &BCB2:MODE 2:END 

I190 ’ %*%* Cursor auf #* 

12008 GOSUB 1368 


1212 


1220 


12308 ° 


1242 


1258 


1262 


1270 


1280 


1290 
1300 
1310 
1320 
1330 
1348 
1350 
1368 


i(cu 


senk=senk-]| 

RETURN 

** Cursor ab *% 

GOSUB 1368 

senk=senkt| 

RETURN 

** Cursor links #%# 
GOSUB 1368 

waag-waag-I 

RETURN 

** Cursor rechts %*# 
GOSUB 1368 

waag-waagt| 

RETURN 

** Cursor loeschen #X 
LOCATE posi (cur (waag ‚senk),I)+1,pos 
r (wvaag ‚senk) ,2)+2 


1370 PAPER 7:PRINT CHRS(32);:PAPER B 
1382 RETURN 

1398 ° 
1408 ’ Felder bestimmen und drehen 
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LISTING 


1410’ 

1428 ERASE spiel:DIM spiel(9,2) 
1430 FOR i=1 TO 9 

1448 a=INT(RNDXP)+1 

1458 IF spiel(a,l)<20 THEN 1440 
14608 spiella,l)=i 

1470 NEXT i 

1488 FOR i=1 TO 9 

1498 spiel(i,2)=INT(RNDx4)+1 


1508 NEXT i 
1518 RETURN 


1520 

1538 ’ Zuweisungen 

1540 

1558 RESTORE 1618 

1568 FOR i=1 TO 9 

1570  READ a,b 

1588  posi(i,l)=a 

1598 posi(i,2)=b 

16808 NEXT i 

1610 DATA 2,7 55,7,8,7,2,12,5,12,8,12,2,1 
7,5,17,8,17 

16208 RESTORE 1678 

1630 FOR i=1 TO 3 

1648 FOR x=1 TO 3 

1658 READ cur(i,x) 

1660 NEXT x,i 

1678 DATA 1,4,7,2,5,8,3,6 ,9 

1680 RESTORE 1708 

1698 FOR i=1 TO 34:READ a:a$=a$tCHR$ (a): 
NEXT 

1700 DATA 236,217,235,8,10,239,8,10,239, 
8,10,239,11,11,8,8,8,238,8,10,238,8,18,2 
38,8,10,234,218,233,8,8,22,1,15 

1718 RESTORE 1828 

1728 FOR i=1 TO 9 

1738 FOR x=1 TO 4 


1748 feld$(i,x)=a$ 

1758 FOR y=1 TO 34 

1768 READ a 

1770 feld$(i,x)=feld$(i,x)+CHR$(a) 
1788 NEXT y 

1798 NEXT x 

18008 NEXT i 

1818 'Feld | 


1828 DATA 13,231,11,15,4,289,11,8,208,11 
‚8,207,11,8,8,15,2,253,8,8,10,15,4,213,8 
‚18,214,8,10,215,22,80,15,1 

1838 DATA 4,288,11,15,13,250,11,8,251,11 
‚8,252,11,8,8,15,4,283,8,8,18,15,2, 32,8 
‚18,248,8,10, 32,22,8,15,1 

1848 DATA 2,255,11,15,4,289,11,8,288,11, 
8,287,11,8,8,15,13,254,8,8,10,15,4,213,,8 
‚18,214,8,10,215,22,8,15,1 

1858 DATA 4,280,11,15,2, 32,11,8,251,11, 
8, 32,11,8,8,15,4,283,8,8,18,15,13,249,8 
‚18,248,8,10,232,22,8,15,1 

1868 ’Feld 2 

1870 DATA 2,255,11,15,4,209,11,8,288,11, 
8,207 ,11,8,8,15,3,283,8,8,18,15,12,218,8 


‚18,211,8,10,212,22,8,15,1 

1888 DATA 12,202,11,15,2, 32,11,8,251,11 
‚8, 32,11,8,8,15,4,203,8,8,10,15,3,213,8 
‚18,214,8,10,215,22,8,15,1 

1890 DATA 3,200,11,15,12,206,11,8,205,11 
‚8,204,11,8,8,15,2,253,8,8,10,15,4,213,8 
‚18,214,8,10,215,22,0,15,1 

1908 DATA 4,200,11,15,3,209,11,8,208,11, 
8,207,11,8,8,15,12,201,8,8,10,15,2, 32,8 
‚10,248,8,10, 32,22,0,15,1 

1910 ’Feld 3 

1920 DATA 2,255,11,15,13,250,11,8,251,11 
‚8,252,11,8,8,15,11,201,8,8,10,15,12,210 
‚8,10,211,8,10,212,22,8,15,1 

1930 DATA 12,202,11,15,2, 32,11,8,251,11 
‚8, 32,11,8,8,15,13,254,8,8,10,15,11,210 
‚8,10,211,8,10,212,22,0,15,1 

1948 DATA 11,202,11,15,12,206,11,8,205,1 
1,8,204,11,8,8,15,2,253,8,8,10,15,13,249 
‚8,10,248,8,10,232,22,0,15,1 

1958 DATA 13,231,11,15,11,206,11,8,205,1 
1,8,204,11,8,8,15,12,201,8,8,18,15,2, 32 
‚8,10,248,8,10, 32,22,8,15,1 

1960 ’Feld 4 

1970 DATA 4,280,11,15,2, 32,11,8,251,11, 
8, 32,11,8,8,15,5,253,8,8,10,15,12,21@,8 
‚18,211,8,10,212,22,0,15,1 

1988 DATA 12,202,11,15,4,209,11,8,208,11 
‚8,207 ,11,8,8,15,2,253,8,8,10,15,5, 32,8 
‚18,248,8,10, 32,22,0,15,1 

1998 DATA 5,255,11,15,12,206,11,8,205,11 
‚8,204,11,8,8,15,4,203,8,8,18,15,2, 32,8 
‚18,248,8,10, 32,22,8,15,1 

2088 DATA 2,255,11,15,5, 32,11,8,251,11, 
8, 32,11,8,8,15,12,201,8,8,10,15,4,213,8 
‚18,214,8,10,215,22,80,15,1 

2818 ’Feld 5 

2828 DATA 3,208,11,15,13,250,11,8,251,11 
‚8,252,11,8,8,15,18,254,8,8,10,15,18,249 
‚8,18,248,8,18,232,22,8,15,1 

2838 DATA 18,231,11,15,3,289,11,8,288,11 
‚8,207 ,11,8,8,15,13,254,8,8,10,15,18,249 
‚8,10,248,8,10,232,22,0,15,1 

2848 DATA 18,231,11,15,10,2580,11,8,251,1 
1,8,252,11,8,8,15,3,203,8,8,10,15,13,249 
‚8,10,248,8,10,232,22,8,15,1 

20858 DATA 13,231,11,15,10,250,11,8,251,1 
1,8,252,11,8,8,15,10,254,8,8,18,15,3,213 
‚8,18,214,8,18,215,22,0,15,1 

2868 ’Feld 6 

2070 DATA 12,282,11,15,3,209,11,8,288,11 
‚8,207,11,8,8,15,10,254,8,8,18,15,5, 32, 
8,10,248,8,10, 32,22,0,15,1 

2888 DATA 5,255,11,15,12,296,11,8,285,11 
‚8,204,11,8,8,15,3,203,8,8,18,15,10,249, 
8,10,248,8,10,232,22,0,15,1 

2898 DATA 18,231,11,15,5, 32,11,8,251,11 
‚8, 32,11,8,8,15,12,201,8,8,18,15,3,213, 
8,10,214,8,10,215,22,8,15,1 

2188 DATA 3,208,11,15,10,258,11,8,251,11 
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‚8,252,11,8,8,15,5,253,8,8,10,15,12,218, 
8,10,211,8,1@8,212,22,80,15,1 

2118 'Feld ? 

2128 DATA 10,231,11,15,5, 32,11,8,251,11 
8:5 32,11,8,8,19,122,201,8,8,10,15,3,213, 
8,10,214,8,10,215,22,8,15,1 

2130 DATA 3,208,11,15,10,250,11,8,251,11 
‚8,252,11,8,8,15,5,253,8,8,1@,15,12,218, 
8,10,211,8,10,212,22,8,15,1 

21408 DATA 12,282,11,15,3,289,11,8,288,11 
‚8,207,11,8,8,15,10,254,8,8,10,15,5, 32, 
8,10,248,8,10, 32,22,8,15,1 

2150 DATA 5,255,11,15,12,206,11,8,205,11 
‚8,204,11,8,8,15,3,203,8,8,10,15,10,249, 
8,10,248,8,10,232,22,0,15,1 

2160 'Feld 8 

2170 DATA 11,202,11,15,10,250,11,8,251,1 
1,8,252,11,8,8,15,11,201,8,8,10,15,13,24 
9,8,10,248,8,10,232,22,0,15,1 

2180 DATA 13,231,11,15,11,206,11,8,205,1 
1,8,204,11,8,8,15,10,254,8,8,10,15,11,21 
8,8,10,211,8,10,212,22,0,15,1 

2198 DATA 11,2082,11,15,13,250,11,8,251,1 
1,8,252,11,8,8,15,11,201,8,8,10,15,10,24 
9,8,10,248,8,10,232,22,0,15,1 

2288 DATA 18,231,11,15,11,206,11,8,2085,1 
1,8,204,11,8,8,15,13,254,8,8,10,15,11,21 
0,8,10,211,8,10,212,22,0,15,1 

2210 'Feld 9 

2220 DATA 13,231,11,15,12,206,11,8,205,1 
1,8,204,11,8,8,15,4,203,8,8,10,15,2, 32, 
8,10,248,8,108, 32,22,0,15,1 

2230 DATA 2,255,11,15,13,250,11,8,251,11 
‚8,252,11,8,8,15,12,201,8,8,10,15,4,213, 
8,10,214,8,10,215,22,0,15,1 

2240 DATA 4,200,11,15,2, 32,11,8,251,11, 
8, 32,11,8,8,15,13,254,8,8,10,15,12,218, 
8,10,211,8,10,212,22,0,15,1 

2250 DATA 12,202,11,15,4,209,11,8,208,11 
‚8,207,11,8,8,15,2,253,8,8,10,15,13,249, 
8,10,248,8,10,232,22,0,15,1 

2260 RETURN 

2278 ° 

2280 ' SmbHlaRsetgunten 

2298 °’ 

2300 SYMBOL AFTER 208 

2310 SYMBOL 200,818,818,83C0,83C,87E,87E, 
&FF,&FF 

2320 SYMBOL 201,818,818,818,818,818,818, 
&FF,&FF 

2330 SYMBOL 202,&FF,&FF,&18,818,818,8&18, 


818,818 
2340 SYMBOL 203 ,&FF,&FF,&7E,87E,83C,83C, 
818,818 

2350 SYMBOL 204,0,0,0,0,8,8,8,8 

2360 SYMBOL 205,8,8,8F,&F,&F,&F,8,8 
2370 SYMBOL 206,8,8,8,8,0,0,0,0 

2380 SYMBOL 207 ,8,0,0,0,1,1,3,3 

2390 SYMBOL 208,7 ,7,&F,&F,&F,&F,7,7 

24008 SYMBOL 209,3,3,1,1,0,0,0,0 


2410 SYMBOL 210,0,0,0,0,810,810,8&10,818 


2420 SYMBOL 211,810,&10,&F0,&FO,&FO,&FO, 
810,810 
2430 SYMBOL 212,810,810,810,810,8,0,0,0 
2440 SYMBOL 213,0,0,0,0,880,880,8C0 ,&CB 
2450 SYMBOL 214,8E0,&E0,&F0,8&FO,&F0,&F, 
&EQ ,&E0 


2460 SYMBOL 215,8C0,8C0,880,880,0,0,0,0 
2479 SYMBOL 217,8&FF,&FF,O,0,0,0,0,8 
2480 SYMBOL 218,0,0,0,0,0,0,&FF,&FF 
2498 SYMBOL 231,8DB,&DB,&7E,8&7E,83C,83C, 


830 ,83C 

2500 SYMBOL 232,830,830,810,810,0,0,0,8 
2510 SYMBOL 233,1,1,1,1,1,1,&FF,&FF 
2520 SYMBOL 234,880,880,880,880,880,880, 
&FF ‚&FF 

2530 SYMBOL 235,8&FF,&FF,1,1, 
2540 SYMBOL 236 ,&FF,&FF, a 
880 ‚880 

2550 SYMBOL 238,880 ,880,880,880,880,888, 
880 ‚880 

2560 SYMBOL 239,1,1,1,1,1 
2570 SYMBOL 240,830 ,83C,8 
830 ,83C 


DE 
80,880 ,880, 


on 
RERn 
yo“ 
Qu 
> 
“> 
Ip) 
& 
[eX7 
2 


2580 SYMBOL 246,8,8,8,8,8,8,8,8 
2590 SYMBOL 247,810 ,810,810,8210,8210,818, 
810,818 
2600 SYMBOL 248 ,8E0,&E0,&FO,&FO,&FO,&FO, 
&E0 ‚LEO 


2610 SYMBOL 249,0,0,0,0,&10,810,830,830 
2620 SYMBOL 250,8C,8C,88,88,2,0,0,8 

2630 SYMBOL 251,7,7,8F,&F,&F,&F,7,7 

2640 SYMBOL 252,0,0,0,0,8,8,&C,8C 

2658 SYMBOL 253,83C0,830,830,830,&3C0,83C, 

818,818 

2660 SYMBOL 254,83C0,83C0,83C0,83C,87E,&7E, 

&DB,&DB 

2670 SYMBOL 255,818,818,830,83C0,83C0,8&3C, 

8&3C,83C 

2680 RETURN 

9970 ’ 

9982 ' Data-Check 

9998 ’ 

10028 RESTORE:sum=@:FOR i=1 TO 1341:READ 
a:sum=sumta:NEXT 

18810 IF sum“) 81328 THEN PRINT"DATA - F 
ehler” ELSE PRINT”DATA-Zeilen 0.K.” 
10028 END 


PU ZZ ZZ LE 


art ta 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in SCHNEIDER AKTIV. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. Ein- 
tach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensicht- 
lich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, 
insbesondere, wenn deren Inhalt gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Pri- 
vatanbieter: etwa bis zu acht Zeilen & 28 Anschläge. Für gewerbliche Anbieter: 5 DM p.mm. bei beliebiger Größe. 


BEBERIMANARB FEIERT EA ERE EEE 
EI SEP FI FF FPEIFI Er ER EE Te 


SCHNEIDER AKTIV 


Name 
ANZEIGENABTLG Vorname 
POSTFACH 1161 Straße /Hausnr. 
D-8044 UNTERSCHLEISSHEIM _PpLz/0rt 


m > 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
SIND KOSTENLOS 


Das bietet Ihnen ab sofort SCHNEIDER AKTIV: KLEINAN- 
ZEIGEN SIND KOSTENLOS FÜR PRIVATANBIETER! Su- 
chen Sie etwas, haben Sie etwas zu verkaufen, zu tau- 
schen, wollen Sie einen Club gründen? Coupon ausfüllen, 
auf Postkarte kleben oder in Briefumschlag stecken und 
abschicken. So einfach geht das. Wollen Sie das Heft 
nicht zerschneiden, können Sie den Coupon auch fotoko- 
pieren. Oder einfach den Anzeigentext uns so schicken, 
auf Postkarte oder im Brief. Aber bitte mit Druckbuchsta- 
ben oder in Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Telefonnum- 
mer sollten acht Zeilen & 28 Anschläge nicht überschrit- 
ten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inserenten 


kostenlos, gewerbliche Anzeigen kosten pro Zeile zu 
29 Buchstaben DM 5,00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

DIE INSERTION IST NICHT VOM HEFTKAUF ABHÄNGIG! 
Chiffre-Anzeigen sind nicht gestattet! Wir behalten uns 
vor, Anzeigen, die gegen rechtliche, sittliche oder sonsti- 
ge Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, kein 
Rechtsanspruch auf den Abdruck in der nächsten Ausga- 
be! 

Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes — Computer — gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


Eure KOMMT 
Je, 1 TC lJel REGELMÄSSIG 
ZU IHNEN 
INS HAUS 


Das unabhängige Magazin 
für Schneider-Computer 


Finden Sie Ihre SCHNEIDER AKTIV nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder ‚‚Ihr‘‘ Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 60 
DM liefern wir Ihnen per Post zwölf Hefte ins Haus 
(Ausland 80 DM). Einfach den Bestellschein aus- 
schneiden — fotokopieren oder abschreiben, in ei- 
nen Briefumschlag und ab per Post (Achtung: Porto 
nicht vergessen). SCHNEIDER AKTIV kommt dann 
pünktlich ins Haus. 


za |) GARANTIE! 

i Sie können diesen Abo-Auftrag bin- 
\ nen einer Woche nach Eingang der 
Jr 


Abo-Bestätigung durch den Verlag 
widerrufen — Postkarte genügt. An- 
sonsten läuft dieser Auftrag jeweils 
für zwölf Ausgaben, wenn ihm nicht 
vier Wochen vor Ablauf widerspro- 
- chen wird, weiter. 


re lan ln di ei en ee at ne a een IL 
ABO-SERVICE-KARTE 


Ich nehme zur Kenntnis, Ja, ich möchte von Ihrem Angebot Ausgaben an untenstehende An- 
daß die Belieferung Gebrauch machen. schrift. Wenn ich nicht vier Wochen 
erst beginnt, wenn die Bitte senden Sie mir bis auf Widerruf vor Ablauf kündige, läuft diese 
Abo-Gebühr dem Verlag ab sofort jeweils die nächsten zwölf Abmachung automatisch weiter. 
zugegangen ist! Name 

Vorname 

Straße /Hausnr. 

PLZ/Ort 

Ich bezahle: 


U] per beiliegendem Verrechnungsscheck 

U) gegen Rechnung 

U] bargeldios per Bankeinzug von meinem Konto 
bei (Bank) und Ort 


Kontonummer 
Bankleitzahl 
SCHNEIDER AKTIV (steht auf jedem Kontoauszug) 
ABO-SERVICE 12/87 Unterschrift 
Be 1161 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
UNTERSCHLEISSHEIM UMOLSEHKIER ne ne nn 27 
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FE EEE a En N ee I ET Mn a Tee ae £ 


PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingun- 
gen die Listings dieses Heftes auf 


U) Kassette (30 DM) D Diskette (30 DM) 


Ich zahle: (Zutreffendes bite ankreuzen!) 
per beigefügten Scheck U) Schein U) 


Gegen Bankabbuchung am Versandtag U 
Meine Bank (mit Ortsname) 

Meine Kontonummer 

Meine Bankleitzahl 

Vorname 

Str./Nr. 


(steht auf jedem Bankauszug) 
Nachname 


PLZ/Ort 12/87 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. 


Unterschrift 
Bitte ausschneiden und einsenden an 


SCHNEIDER AKTIV 
KASSETTENSERVICE 12/87 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


GEWINNEN SIE EINE COMPUTER- 
UHR! Und zusätzlich eventuell 
noch ein großes Computer-Buch. 
Oder ein Paket Disketten. ODER 
AUCH EINEN COMPUTER — 
ODER EINE DISKETTENSTATION! 
Wie? Sie werben einen Abonnen- 
ten. Dann haben Sie auf jeden Fall 
schon die Computer-Uhr gewon- 
nen. Zusätzlich verlosen wir unter 
allen, die mitmachen, jeden Mo- 
nat vier weitere wertvolle Preise. 
Und alle sechs Monate gibt es ei- 
nen Hauptpreis unter allen Abo- 
Werbern zu gewinnen. Also: Mit- 
machen. Mitgewinnen. 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 


Herrn /Frau 
Straße /Hausnr. 


PLZ/Ort 


als neuen Abonnenten für SCHNEI- 
DER AKTIV geworben. 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie abge- 
bildet, und nehme zusätzlich noch 
an der Verlosung des Monats so- 
wie der halbjährlichen Hauptprei- 
se teil. Mir ist bekannt, daß der 
Rechtsweg ausgeschlossen ist. 
Meinen Preis senden Sie an 


Name 
Straße /Hsnr. 
PLZ/Ort 


(Bitte ausschneiden und zusam- 
men mit der Abo-Bestellkarte links 


einsenden!) 12/87 


VERDIENEN SIE GELD 
MITIHREM COMPUTER: 


WIR ZAHLEN BIS ZU 1000DM:! 


Haben Sie einen CPC 464 oder 664 ? Einen 6128 
Können Sie programmieren? In Basic oder 
Maschinensprache? Dann bietet SCHNEIDER AKTIV 


Ihnen die Möglichkeit, mit diesem Hobby Geld zu verdie- 
nen! 


Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwende- 
te Hardware — eventuelle Erweiterungen — benutzte Pe- 
ripherie — hervorgehen muß, ein. 


Benötigt werden: eine Datenkassette oder Diskette! 
Wenn die Redaktion sich überzeugt hat, daß dieses Pro- 
gramm läuft und sich zum Abdruck eignet, zahlen wir 
Ihnen pro Programm je nach Umfang bis zu DM 300, —! 


Name des Einsenders: 
Straße /Hausnr. /Tel.: 
PLZ/Ort: 


Für das ‚Listing des Monats‘‘ sogar DM 1.000,'—. 
Sie erhalten Ihre Kassette/Diskette selbstverständlich 

zurück, wenn Sie einen ausreichend frankierten 

Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift ga- 
rantieren, daß Sie der alleine Inhaber der Urheber-Rechte 
sind! Benutzen Sie bitte anhängendes Formular! (Wir 
weisen darauf hin, daß auch die Reaktion englische 
Fachzeitschriften liest und ‚‚umgestaltete‘‘ Programme 
ziemlich schnell erkennt). 


Um Ihnen die Arbeit zu erleichtern, finden Sie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


Hiermit biete ich Hanen zum Abdruck felgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt U Listings U) Kassette _| Diskette 


Ich versichere, der alleinige Urheber des Programms zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es in 
den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. Das Copyright 


geht an den Verlag über. 


Rechtsverbindliche Unterschrift 


SCHNEIDER AKTIV 
PROGRAMM-REDAKTION 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


LISTING 


1 KRITIK RR RR R RK 
2ER PUZZLE 2 * 
ER voN * 
4 '% HICHAEL KOETHE * 
ve FUER * 
6 '* SCHNEIDER AKTIV * 
0% CPC 464/664/6128 ie* 


8 ZERIEEERTERERDETT TITEL ET EEE DE 
1810 ’Feld I 

1820 DATA 13,231,11,15,3,209,11,8, 
‚8,207,11,8,8,15,2,253,8,8,18,15,5 
‚10,248,8,10, 32,22,8,15,1 

1830 DATA 5,255,11,15,13,250,11,8,251,11 
‚8,252,11,8,8,15,3,203,8,8,18,15,2, 32,8 
‚10,248,8,10, 32,22,0,15,1 

1840 DATA 2,255,11,15,5, 32,11,8,251,11, 
8, 32,11,8,8,15,13,254,8,8,10,15,3,213,8 
‚10,214,8,10,215,22,0,15,1 

1858 DATA 3,200,11,15,2, 32,11,8,251,11, 
8, 32,11,8,8,15,5,253,8,8,10,15,13,249,8 
‚18,248,8,10,232,22,0.15,1 

1860 'Feld 2 

1870 DATA 11,202,11,15,11,206,11,8,205,1 
1,8,204,11,8,8,15,2,253,8,8,1@0,15,11,210 
‚8,10,211,8,10,212,22,0,15,1 

1880 DATA 11,202,11,15,11,206,11,8,205,1 
1,8,204,11,8,8,15,11,201,8,8,10,15,2, 32 
‚8,10,248,8,10, 32,22,0,15,1 

1890 DATA 2,255,11,15,11,206,11,8,205,11 
‚8,204,11,8,8,15,11,201,8,8,10,15,11,218 
‚8,10,211,8,10,212,22,0,15,1 

1988 DATA 11,202,11,15,2, 32,11,8,251,11 
‚8, 32,11,8,8,15,11,201,8,8,10,15,11,210 
‚8,10,211,8,10,212,22,0,15,1 

1910 'Feld 3 

1920 DATA 3,200,11,15,4,209,11,8,208,11, 
8,207,11,8,8,15,2,253,8,8,10,15,3,213,8, 
10,214,8,10,215,22,0,15,1 

1930 DATA 3,200,11,15,3,209,11,8,208,11, 
8,207,11,8,8,15,4,203,8,8,10,15,2, 32,8, 
10,248,8,10, 32,22,0,15,1 

1940 DATA 2,255,11,15,3,209,11,8,208,11, 
8,207 ,11,8,8,15,3,203,8,8,10,15,4,213,8, 
10,214,8,10,215,22,0,15,1 

1958 DATA 4,200,11,15,2, 32,11,8,251,11, 
8, 32,11,8,8,15,3,203,8,8,10,15,3,213,8, 
18,214,8,10,215,22,0,15,1 

1960 ’Feld 4 

1970 DATA 3,200,11,15,12,206,11,8,205,11 
‚8,204,11,8,8,15,5,253,8,8,10,15,2, 32,8 
‚10,248,8,10, 32,22,0,15,1 

1988 DATA 2,255,11,15,3,209,11,8,208,11, 
8,207 ,11,8,8,15,12,201,8,8,10,15,5, 32,8 
‚10,248,8,10, 32,22,0,15,1 

1990 DATA 5,255,11,15,2, 32,11,8,251,11, 
8, 32,11,8,8,15,3,203,8,8,10,15,12,210,8 
‚10,211,8,10,212,22,0,15,1 

2008 DATA 12,202,11,15,5, 32,11,8,251,11 
‚8, 32,11,8,8,15,2,253,8,8,10,15,3,213,8 
‚10,214,8,10,215,22,0,15,1 


298,11 
32,8 


2010 Feld 5 

2028 DATA 5,255,11,15,2, 32,11,8,251,11, 
8, 32,11,8,8,15,3,203,8,8,10,15,4,213,8, 
10,214,8,10,215,22,0,15,1 

2038 DATA 4,200,11,15,5, 32,11,8,251,11, 
8, 32,11,8,8,15,2,253,8,8,18,15,3,213,8, 
18,214,8,10,215,22,0,15,1 

2840 DATA 3,200,11,15,4,209,11,8,208,11, 
8,207,11,8,8,15,5,253,8,8,10,15,2, 32,8, 
10,248,8,10, 32,22,0,15,1 

2050 DATA 2,255,11,15,3,209,11,8,208,11, 
8,207,11,8,8,15,4,203,8,8,10,15,5, 32,8, 
10,248,8,10, 32,22,0,15,1 

2060 ’Feld 6 

2078 DATA 18,231,11,15,4,209,11,8,208,11 
‚8,207,11,8,8,15,11,201,8,8,10,15,10,249 
‚8,10,248,8,10,232,22,0,15,1 

2088 DATA 10,231,11,15,10,250,11,8,251,1 
1,8,252,11,8,8,15,4,203,8,8,18,15,11,218 
‚8,10,211,8,10,212,22,0,15,1 

2098 DATA 11,202,11,15,10,250,11,8,251,1 
1,8,252,11,8,8,15,10,254,8,8,10,15,4,213 
‚8,10,214,8,10,215,22,0,15,1 

2100 DATA 4,200,11,15,11,206,11,8,205,11 
‚8,204,11,8,8,15,10,254,8,8,10,15,10,249 
‚8,10,248,8,10,222,22,0,15,1 

2110 ’Feld 7 

2120 DATA 5,255,11,15,13,250,11,8,251,11 
‚8,252,11,8,8,15,11,201,8,8,10,15,11,218 
‚8,10,211,8,10,212,22,0,15,1 

2130 DATA 11,202,11,15,5, 32,11,8,251,11 
‚8, 32,11,8,8,15,13,254,8,8,10,15,11,218 
‚8,10,211,8,18,212,22,0,15,1 

2140 DATA 11,202,11,15,11,206,11,8,205,1 
1,8,204,11,8,8,15,5,253,8,8,10,15,13,249 
‚8,10,248,8,10,232,22,0,15,1 

2158 DATA 13,231,11,15,11,206,11,8,205 ,1 
1,8,204,11,8,8,15,11,201,8,8,10,15,5, 32 
‚8,10,248,8,10, 32,22,0,15,1 

2160 ’Feld 8 

2170 DATA 12,202,11,15,13,250,11,8,251,1 
1,8,252,11,8,8,15,13,254,8,8,10,15,5, 32 
‚8,10,248,8,10, 32,22,0,15,1 

2188 DATA 5,255,11,15,12,206,11,8,205 ,11 
‚8,204,11,8,8,15,13,254,8,8,10,15,13,249 
‚8,10,248,8,10,232,22,0,15,1 

2190 DATA 13,231,11,15,5, 32,11,8,251,11 
‚8, 32,11,8,8,15,12,201,8,8,10,15,13,249 
‚8,10,248,8,10,232,22,0,15,1 

2200 DATA 13,231,11,15,13,250,11,8,251,1 
1,8,252,11,8,8,15,5,253,8,8,10,15,12,210 
‚8,10,211,8,10,212,22,0,15,1 

2210 'Feld 9 

2220 DATA 12,292,11,15,12,206,11,8,205 ,1 
1,8,204,11,8,8,15,2,253,8,8,10,15,5, 32, 
8,10,248,8,10, 32,22,0,15,1 

2230 DATA 5,255,11,15,12,206,11,8,205,11 
‚8,204,11,8,8,15,12,201,8,8,10,15,2, 32, 
8,10,248,8,10, 32,22,0,15,1 

2248 DATA 2,255,11,15,5, 32,11,8,251,11, 
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LISTING 


8, 32,11,8,8,15,12,201,8,8,10,15,12,218, 

8,10,211,8,10,212,22,0,15,1 

2258 DATA 12,202,11,15,2, 32,11,8,251,11 
‚8, 32,11,8,8,15,5,253,8,8,10,15,12,218, 
8,18,211,8,10,212,22,8,15,1 

9970 

9980 ’ Data-Check 

9998 ’ 

12008 RESTORE:sum=#:FOR i=1 TO 1224:READ 
a:sum-sumta:NEXT 

10810 IF sum<> 642608 THEN PRINT”DATA - F 

ehler” ELSE PRINT”DATA-Zeilen 0O.K.” 
1020208 END 


REEBOK 
2’ PUZZLE 3 * 
3 8 voN * 
4 °% MICHAEL KOETHE * 
>’ FUER * 
6 ’* SCHNEIDER AKTIV * 
Br FR CPC 464/664/6128 ie* 


© 


PRRRRKKKTTRHKHTKRTRRHK KK RRRTKKKKKRR KK 
1810 "Feld 1 

1820 DATA 13,231,11,15,3,209,11,8,208,11 
‚8,207,11,8,8,15,2,253,8,8,18,15,10,249, 
8,10,248,8,10,232,22,0,15,1 

1838 DATA 10,231,11,15,13,250,11,8,251,1 
1,8,252,11,8,8,15,3,203,8,8,10,15,2, 32, 
8,10,248,8,10, 32,22,0,15,1 

1848 DATA 2,255,11,15,10,250,11,8,251,11 
‚8,252,11,8,8,15,13,254,8,8,10,15,3,213, 
8,10,214,8,10,215,22,0,15,1 

1858 DATA 3,200,11,15,2, 32,11,8,251,11, 
8, 32,11,8,8,15,10,254,8,8,10,15,13,249, 
8,10,248,8,10,232,22,0,15,1 

1868 ’Feld 2 

1878 DATA 5,255,11,15,2, 32,11,8,251,11, 
8, 32,11,8,8,15,12,201,8,8,18,15,11,218, 
8,10,211,8,18,212,22,0,15,1 

1888 DATA 11,202,11,15,5, 32,11,8,251,11 
‚8, 32,11,8,8,15,2,253,8,8,10,15,12,218, 
8,10,211,8,10,212,22,80,15,1 

1898 DATA 12,202,11,15,11,286,11,8,205,1 
1,8,204,11,8,8,15,5,253,8,8,180,15,2, 32, 
8,10,248,8,10, 32,22,80,15,1 

1988 DATA 2,255,11,15,12,206,11,8,285,11 
‚8,204,11,8,8,15,11,201,8,8,18,15,5, 32, 
8,10,248,8,10, 32,22,8,15,1 

1918 "Feld 3 

1928 DATA 4,208,11,15,2, 32,11,8,251,11, 
8, 32,11,8,8,15,13,254,8,8,10,15,10,249, 
8,10,248,8,10,232,22,0,15,1 

1938 DATA 18,231,11,15,4,209,11,8,288,11 
‚8,207,11,8,8,15,2,253,8,8,18,15,13,249, 
8,10,248,8,18,232,22,0,15,1 

1948 DATA 13,231,11,15,10,258,11,8,251,1 
1,8,252,11,8,8,15,4,203,8,8,18,15,2,32,8 
‚18,248,8,10, 32,22,8,15,1 

1958 DATA 2,255,11,15,13,250,11,8,251,11 
‚8,252,11,8,8,15,18,254,8,8,10,15,4,213, 


8,10,214,8,10,215,22,0,15,1 

1968 'Feld 4 

1978 DATA 12,202,11,15,10,250,11,8,251,1 
1,8,252,11,8,8,15,5,253,8,8,10,15,3,213, 
8,18,214,8,10,215,22,0,15,1 

1980 DATA 3,200,11,15,12,206,11,8,205,11 
‚8,204,11,8,8,15,10,254,8,8,10,15,5, 32, 
8,10,248,8,10, 32,22,0,15,1 

1998 DATA 5,255,11,15,3,209,11,8,208,11, 
8,207,11,8,8,15,12,201,8,8,10,15,10,249, 
8,10,248,8,10,232,22,0,15,1 

2080 DATA 10,231,11,15,5, 32,11,8,251,11 
‚8, 32,11,8,8,15,3,203,8,8,10,15,12,210, 
8,18,211,8,10,212,22,0,15,1 

2010 "Feld 5 

2020 DATA 3,200,11,15,10,250,11,8,251,11 
‚8,252,11,8,8,15,13,254,8,8,10,15,2, 32, 
8,10,248,8,10, 32,22,0,15,1 

2038 DR 2,255,11,15,3,209,11,8,208,11, 


8,207 ‚11,8,8,15.10.254,8,8,18,15,13,249, 
8,10,548,8,18,232,52,0,15,1 


2848 DATA 13,231,11,15,2, 32,11,8,251,11 
‚8, 32,11,8,8,15,3,203,8,8,18,15,10,249, 
8,10,248,8,10,232,22,0,15,1 

2850’ DATA 10,231,11,15,13,250,11,8,251,1 
1,8,252,11,8,8,15,2,253,8,8,10,15,3,213, 
8,18,214,8,10,215,22,0,15,1 

2068 ’Feld 6 

2070 DATA 3,200,11,15,13,250,11,8,251,11 
‚8,252,11,8,8,15,12,201,8,8,10,15,2, 32, 
8,10,248,8,10, 32,22,8,15,1 

2088 DATA 2,255,11,15,3,289,11,8,208,11, 
8,207,11,8,8,15,13,254,8,8,10,15,12,218, 
8,10,211,8,18,212,22,8,15,1 

2898 DATA 12,282,11,15,2, 32,11,8,251,11 
‚8, 32,11,8,8,15,3,203,8,8,18,15,13,249, 
8,10,248,8,10,232,22,0,15,1 

2108 DATA 13,231,11,15,12,206,11,8,205,1 
1,8,284,11,8,8,15,2,253,8,8,18,15,3,213, 
8,10,214,8,18,215,22,0,15,1 

2118 ’Feld 7? 

2128 DATA 12,202,11,15,13,250,11,8,251,1 
1,8,252,11,8,8,15,4,203,8,8,10,15,3,213, 
8,10,214,8,10,215,22,0,15,1 

2138 DATA 3,208,11,15,12,206,11,8,205,11 
‚8,204,11,8,8,15,13,254,8,8,10,15,4,213, 
8,10,214,8,10,215,22,0,15,1 

2148 DATA 4,288,11,15,3,209,11,8,208,11, 
8,207,11,8,8,15,12,201,8,8,10,15,13,249, 
8,10,248,8,18,232,22,0,15,1 

2158 DATA 13,231,11,15,4,209,11,8,208,11 
‚8,207 ,11,8,8,15,3,203,8,8,18,15,12,210, 
8,180,211,8,10,212,22,0,15,1 

2168 ’Feld 8 

2178 DATA 3,288,11,15,12,286,11,8,205,11 
‚8,204,11,8,8,15,11,201,8,8,10,15,5, 32, 
8,10,248,8,10, 32,22,8,15,1 

2188 DATA 5,255,11,15,3,209,11,8,208,11, 
8,287 ,11,8,8,15,12,201,8,8,10,15,11,218, 
8,18,211,8,10,212,22,0,15,1 
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2190 DATA 11,282,11,15,5, 32,11,8,251,11 
‚8, 32,11,8,8,15,3,203,8,8,10,15,12,218, 

8,10,211,8,18,212,22,0,15,1 

22008 DATA 12,202,11,15,11,206,11,8,205,1 
1,8,204,11,8,8,15,5,253,8,8,10,15,3,213, 

8,108,214,8,18,215,22,8,15,1 

2210 ’Feld 9 

2220 DATA 2,255,11,15,13,250,11,8,251,11 
‚8,252,11,8,8,15,11,201,8,8,10,15,4,213, 

8,10,214,8,10,215,22,0,15,1 

2230 DATA 4,288,11,15,2, 32,11,8,251,11, 

8, 32,11,8,8,15,13,254,8,8,10,15,11,218, 

8,10,211,8,10,212,22,8,15,1 

2240 DATA 11,202,11,15,4,209,11,8,208,11 
‚8,287.,11,8,8,15,2,253,8,8,10,15,13,247, 

8,10,248,8,10,232,22,0,15,1 

22508 DATA 13,231,11,15,11,206,11,8,205,1 
1.,8,204,,11,8,8,15,94,203,8,8,18,15,2, 32, 

8,10,248,8,10, 32,22,08,15,1 

9970’ 

9980 ’ Data-Check 

9990 ' 

12008 RESTORE:sum=B:FOR i=1 TO 1224:READ 
a:sum=sumta:NEXT 

IBQOIE IF sum“) 67142 THEN PRINT"DATA - F 
ehler” ELSE PRINT”DATA-Zeilen 0.K.” 
180208 END 


„me PC-WELT... 


SCHNEIDER Unser 
Weihnachts- 
EPO-WELT Geschenk 


für alle CPC-Fans! 
Schneider aktiv 
heisst jetzt 
SCHNEIDER CPC - WELT! 
ab Nr. 1/88! 
Mehr Umfang 
mehr Farbe 
Neu ab 11.12! 

SCHNEIDER CPC - WELT! 
Ihr User - Magazin 
Fragen Sie nach 

SCHNEIDER CPC- WELT - 
An jedem guten Kiosk oder 
im Bahnhofsbuchhandel 


LOTTO 


Die Ziehung der Lottozahlen ist ein immer wieder- 
kehrendes Programm für alle Computertypen, wahr- 
scheinlich, weil man dazu an sich gar keinen Rechner 
benötigen würde. Wir haben uns trotzdem entschlos- 
sen, das Listing von Günter Schmidt vorzustellen. Dies 
hat natürlich besondere Gründe, wobei es mit ein 
paar Zufallszahlen nicht getan ist. 

Da wäre zuerst einmal die Ausnutzung der Farbmög- 
lichkeiten, die der Schneider PC bietet. Es ist schon 
recht eindrucksvoll, was hier geboten wird. Zum 
zweiten wird ein verkleinerter Zeichensatz benutzt, 
es mußten immerhin 490 Zahlen untergebracht wer- 
den. Ein Basic-Trick, den vielleicht noch nicht jeder 
Anwender heraus hat, der sich hier aber ganz neben- 
bei durchs Abtippen erlernen läßt. 


Zu guter Letzt wurden auch noch ALERT-Boxen in 
den Programmablauf integriert. Diese Warnfelder gilt 
es anzuklicken, wenn zum Beispiel der Drucker ange- 
schaltet werden muß. Da sich Label-Basic durch ver- 
nünftige Verwendung der Namen (hier geschehen) 
selbst erklärt, sind weitere Erläuterungen überflüssig. 
Vielleicht noch ein scherzhafter Hinweis auf das 
Label zahlen. Hier wird nicht etwa der Gewinn aus- 
gezahlt, sondern in dieser Routine werden die Zufalls- 
zahlen ausgelost. 

Nach dem Start des Programmes erscheint ein Titel- 
bild und die Aufforderung, die Anzahl der Spiele zu 
wählen. Danach muß man sich nur noch entscheiden, 
ob die Zahlen auf dem Drucker ausgegeben werden 
sollen. Sie erscheinen dann auf dem Papier als forma- 
tierte und sortierte Zahlenreihe je Kästchen. Auf 
dem Bildschirm wird ein Lottoschein dargestellt, des- 
sen angekreuzte Zahlen rot unterlegt werden. Viel 
Glück im Spiel wünscht die Schneider-aktiv-Redak- 
tion. 
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LOTTO 6 AUS 49 var 


VON Fr 
GUNTER SCHMIDT *#* 
FÜR wer 


SCHNEIDER AKTIV ###* 


FOR schließe=1 TO 4:CLOSE WINDOW schließe:NEXT 
WINDOW #1 OPEN 

WINDOW #1 FULL 

WINDOW #1 TITLE "Lotto 6 aus 49 (65.03.87) " 
SCREEN #1 GRAPHICS 
LABEL titel 

BOX 1;1,8508,5088 COLOUR 2 FILL 

FOR 1=8 TO 6888 STEP 1508 

FOR i=1 TO 588 STEP 58 

CIRCLE 18828+1;4800,i COLOUR ® FILL 

NEXT:PRINT CHR$(?) 

IF 1=8 THEN MOVE 888;3889:PRINT COLOUR (4);FONT (3) ;POINTS (36); " 


Lk” 


IF 1=1588 THEN MOVE 2380;3888:PRINT COLOUR (4);FONT (3) ;POINTS (3 
Eleanor THEN MOVE 3880; 3888:PRINT COLOUR (4) ;FONT (3) ;POINTS (3 
u Be THEN MOVE 5388;3888:PRINT COLOUR (4);FONT (3) ;POINTS (3 
Se eroe THEN MOVE 6880; 38088:PRINT COLOUR (4);FONT (3) ;POINTS (3 
Er 


NEXT 


BOX 300; 1700,7800, 1008 COLOUR 1 FILL 

BOX 2508;18900,780®0, 1008 COLOUR 13 FILL 

FOR i=400 TO 80088 STEP 1008 

READ a$ 

MOVE i;2088:PRINT COLOUR (8) ;FONT (2) ;POINTS (36) ;MODE (2);a$ 
MOVE i-30;197@:PRINT COLOUR (1);FONT (2);POINTS (36) ;MODE (2) ;a$ 
FOR z=1 TO 1000:NEXT:PRINT CHR$ (7) 


NEXT 


DATA 6,,3,u,s,,4,9 
LABEL eingabe 
BOX 400;,50,7788, 188B COLOUR 1 FILL 
BOX 350; 158,77988, 1888 COLOUR ® FILL 
MOVE 688;888:PRINT COLOUR (4) ;FONT (2) ;POINTS (14) ;EFFECTS (5); "W 


ieviel Spiele (1-18) :" 
MOVE 688;488:PRINT COLOUR (4) ;FONT (2);POINTS (14) ;EFFECTS (5); "D 
ruckerausgabe (J/N):" 


MOVE 4880;8088:INPUT "=>";tip 
IF tip<1 OR tip>18 GOTO hinweis_tip 
MOVE 48098;4099:PRINT "=>" 
LABEL drucker_abfrage 
a$=INKEY$:IF a$="" THEN GOTO drucker_abfrage 
IF a$="j" THEN druck=1:MOVE 50900;488:G0OSUB hinweis_drucker ELSE d 
ruck=B 
GOSUB hintergrund 
GOSUB schein 
LABEL frage 
a$=INKEY$:IF a$="" GOTO frage 
IF a$="n" THEN CLS:RUN 
IF a$="e" THEN SYSTEM 


LABEL hintergrund 


CLS 


BOX 1;1,8500,5288 COLOUR 18 FILL 
BOX 1;1,83080,49088 COLOUR 3 FILL 


LINE 
LINE 


10;2940,8280;2948 COLOUR 12 WIDTH 5 
1630;4800, 1630; 1008 COLOUR 12 WIDTH 3 
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LINE 3288;48900,3280; 1088 COLOUR 12 WIDTH 3 

LINE 4910;4800,4910;1088 COLOUR 12 WIDTH 3 

LINE 6550;,4800,655®; 1000 COLOUR 12 WIDTIH 3 

MOVE 509;4730:PRINT COLOUR (1);FONT (3) ;POINTS (8) ;MODE (2);"SPIE 
U 9 " 

MOVE 2100;4730:PRINT COLOUR (1) ;FONT (3) ;POINTS (8) ;MODE (2);"SPI 
EL Di 

MOVE 3788;4730:FRINT COLOUR (1);FONT (3) ;POINTS (8) ;MODE (2);"SPI 
Ei 

MOVE 53090;4738:PRINT COLOUR (1);FONT (3) ;POINTS (8) ;MODE (2);"SPI 
EL a" 

MOVE 6990;4730:PRINT COLOUR (1);FONT (3);POINTS (8) ;MODE (2);"SPI 
EL 5" 

MOVE 509; 1059:PRINT COLOUR (1);FONT (3) ;POINTS (8) ;MODE (2);"SPIE 
L 6" 

MOVE 2188; 1050:PRINT COLOUR (1);FONT (3);POINTS (8) ;MODE (2);"SPI 
EL 7" 

MOVE 3700; 1850:FRINT COLOUR (1);FONT (3);POINTS (8) ;MODE (2);"SPI 
Eh. 8” 

MOVE 5309; 10850:PRINT COLOUR (1) ;FONT (3);POINTS (8) ;MODE (2);"SPI 
EL 9" 

MOVE 6900; 1850:PRINT COLOUR ( 1);FONT (3) ;POINTS (8) ;MODE (2);"SPI 
EL 10" 

BOX 590;100,8158,908 COLOUR 1 FILL 

BOX 50; 100,2050,908 COLOUR 1 FILL WITH ® 

MOVE 180,758: PRINT COLOUR (12);FONT (2);POINIS (14);"LOTTO 6 AUS 
a9" 

LINE 100;708,1950;70® COLOUR 12 

MOVE 100;458:PRINT COLOUR (12) ;FONT (3) ;FOINIS (14) ;"NURMALSCHEIN 


MOVE 3800;,758:PRINT COLOUR (6) ;FONI 2); POINTS (14) ;EFFECIS (5) ;M 


ODE (2) ;"Neuer Lottotip ===> N<===" 
MOVE 32808;,458:FRINT COLOUR (6) ;FONT (2) ;PFOINTS (14) ;EFFECTS (5) ;M 
ODE (2) ;"Programm beenden ===>E<===" 
RETURN 


LABEL schein 
FOR i=1 TO 18 
GOSUB zahlen 
IF i=1 THEN abst=25:sp=B:zei-446® 


IF i=2 THEN abst=1668:sp=8:zei=4700 
IF = THEN abst=3388:sp=® 
IF i=4 THEN abst=4948:sp=® 
IF i=5 THEN abst=659B:sp=® 


IF THEN abst=1668:sp=® 

IF THEN abst=330B:sp=® 

IF THEN abst=4948:sp=® 

IF i=18 THEN abst=6598:sp=® 

FOR s=1 TO 49 

num=num+238:IF num=1618 THEN num=d:sp=sp+248 

IF s=1 THEN num=® 

IF i>tip THEN GOSUB ohne_tip:GOTO weiter 

IF s=z1 OR s=z2 OR s=z3 OR s=z4 OR s=z5 OR s=z6 THEN BOX abst+num 
;‚zei-sp,218,21®8 COLOUR 2 FILL ELSE BOX abst+num;zei-sp,218,210 C 
OLOUR 1 FILL 

IF s=z1 OR s=z2 OR s=z3 OR s=z4 OR s=z5 OR s=-z6 THEN PRINT CHR$(? 
) :MOVE( abst+num) -30;,45+zei-sp:PRINT CUOLOUR(B) ;FONT(2) ;POINTS(8); 
MODE( 2) ;s:GOSUB drucke_zahlen 

ELSE MOVE( abst+num) -38;45+zei-sp:PRINT COLOUR(B) ;FONT(2) ;POINTS(8 
) ;MODE(2);s 
LABEL weiter 

NEXT 

NEXT 

RETURN 


i=2 
i=3 
i=4 
i=-5 
IF i=6 THEN abst=25:sp=®:zei=-290B 
i=7 
i=8 
i=-9 
i=1 
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LABEL zahlen 
z1I=AND( 49) 
LABEL zahl_2 
z2=RAND( 49) 
IF z2=z1 GOTO zahl _2 
LABEL zahl_3 
z3=RND( 49) 
IF z3=z2 OR z3=z1 GOTO zahl_3 
LABEL zahl_4 
z4=RAND( 49) 
IF z4=z3 OR z4=z2 OR z4=z1I GOTO zahl_4 
LABEL zahl_5 
z5=RND( 49) 
IF z5=z4 OR z5=z3 OR z5=z2 OR z5=z1 GOTO zahl 5 
LABEL zahl_6 
z6=RND( 49) 
IF z6=z5 OR z6=z4 OR z6=z3 OR z6=z2 OR z6=z1 GUTO zahl 6 
RETURN 
LABEL drucke_zahlen 
IF druck<>1 THEN RETURN 
dr=dr+18:IF dr=?®8 THEN dr=1® 


IF dr=18 THEN LPRINT TAB (26), "SPIEL ";i:LPAINT 
LPRINT TAB (dr) USING "##";s; 

IF dr=68 THEN LPRINT:FOR dru=1 TO 7B:LPAINT "-"y:NEXT 
RETURN 


LABEL ohne _tip 

BOX abst+num;zei-sp,210,210 COLOUR 1 FILL 

MOVE (abst+num) -38;45+zei-sp:PHRINT COLOUR (BB) ;FÜNT (2) ;POINTS (8) 
;MODE (2);s 

RETURN 
LABEL hinweis_tip 

hinweis=ALERT 3 TEXT "Fehler bei der Eingabe!","Sie haben einen W 
ert <1 oder >18 gewaählt.","Bitte wiederholen Sie die Eingabe." B 
UTTON RETURN "LOTTO (c)G5.83.8 

7)" ,"OK" 

G0TO eingabe 
LABEL hinweis_drucker 

hinweis=ALERT 1 TEXT "Bitte Drucker einschalten!" BUTTON RETURN " 
LOTTO (c)6S5.03.87)", "OK" 

LPRINT CHRA$( 15) 

RETURN 


Diaverwaltung 


Mit diesem Listing unseres Autors Christian Lüders 
haben alle Fotofreunde unter den CPC-Usern endlich 
die Möglichkeit, Ordnung in ihre Dia-Sammlung zu 
bringen. 

Der Autor hat sich auf die im Handel üblichen Dia- 
Aufbewahrungskästen (2 Reihen mit jeweils bis zu Bares 
50 Dias) gestützt. Und diese Art der Kästen hat jeder ni nta Erina 
Diafreund, denn diese Größe ist wohl die, die am mei- Der Se ’ 
sten verbreitet ist. Und wenn der Fotofreund nun GE 

noch einen CPC hat, steht der systematischen Verwal- 
tung der Andenken an einen schönen Urlaub, Bilder 
der eigenen Familie oder vom Hausbau nichts mehr 

im Wege. 

Das Programm ist voll menügesteuert und bietet einigen 
Komfort an Anwenderfreundlichkeit. 


e 
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1BB ON BREAK GOSUB 7688 
118 ON ERROR GOTO 7698 
120 RRRRKRKRHRRKRRHRKKTKKRRKRKKRRK 


130 '* DI AVERWALTUNG * 
140 ’* VON * 
150 '* CHRISTIAN LUEDERS * 
160 ’* FUER * 
178 '%* SCHNEIDER AKTIV * 


180 ’x* CPC 464/664/6128 JEX 

19D RRRRRKRRRRRRRRRRRRRRRRRKRRKHK 

208 daten=Ld 

210 IF durch=@ THEN DIM dibe$ (50) :durch= 


228 stfb(1)=2 

230 stfb(2)=15 

240 sttb(3)=18 

250 rdfb=8 

260 pafb=8 

278 leer$="" 

280 REM ”START-FARBEN”: 

298 INK 8,8:INK 1,2:INK 2,15:INK 3,18:BO 
RDER B8:PAPER 8 

308 GOSUB 2270:G60SUB 318:G60T0 538 

310 REM SCHRIFT-STREIFEN IN MODE 1: 

3208 MODE 1 

330 WINDOW #2,1,48,1,5 

348 LOCATE 1,1:PRINT#2 

350 PEN#2,1 

368 LOCATE #2,1,2:PRINT#2, STRING$S(40,”# 
2) 

370 LOCATE #2,1,3:PRINT#2, ” DIAVERWALTU 
NG (C) 86’ von C. Lueders” 

380 LOCATE #2,1,4:PRINT#2, STRINGS(48,”# 
”) 

392 WINDOW #3,1,40,6,24 

408 MO=1 

418 RETURN 

4208 REM SCHRIFT-STREIFEN IN MODE 2: 

438 MODE 2 

440 WINDOW #1,1,80,1,5 

458 LOCATE #1,1,1:PRINT#1 

460 PEN#2,2:PAPER #3 ,1 

478 LOCATE #1,1,2:PRINT#1, STRING$S(88,”# 
*) 

480 LOCATE #1,1,3:PRINT#1, ” DIAVERW 
ALTUNG (C) 14.10.1986 Ffm. von Ch 
ristian Lueders 

490 LOCATE #1,1,4:PRINT#1, STRINGS(88,”# 


588 WINDOW #3,1,80,6 ,38 
510 MO=2 

520 RETURN 

530 REM UHRZEITEINGABE: 

548 PAPER#3 ‚0 

550 CLS#3 

560 LOCATE #3,13,4:PEN#3,2:PRINT#3 ‚"UHRZ 
EITEINGABE” 


580 LOCATE #3,5,9 


590 PEN#3,3:PRINT#3,”Geben Sie bitte die 
Uhrzeit ein” 

600 uhrs=""” 

618 pl=16 

620 p3=13 

630 LOCATE #3,pl,p3 
648 PRINTRS "hh san”; 
650 std$="hh” 

660 y=24 

670 GOSUB 1188 

680 uhr$=uhr$tunst”:” 

6908 std$="mm” 

708 y=68 

718 GOSUB 1188 

720 uhr$=uhr$+runs+”:00” 

738 LOCATE #3,7,19 

740 GOSUB 1580 

750 IF c=8 THEN 688 

768 LOCATE #3,3,19 

770 EVERY 50,3 GOSUB 798 

788 GOTO 1688 

798 WHILE RIGHTS (uhr$,1)="9” 

8008 HID$(uhr$,8,1)=”"/” 

818 WHILE MID$(uhr$,7,1)="5” 

828 HID$(uhr$,7,1)=”/” 

830 WHILE MID$(uhrs,5,1)="9" 

840 MID$(uhr$,5,1)="/" 

858 WHILE MID$(uhr$,4,1)="5” 

868 MID$(uhr$,4,1)="/” 

878 WHILE LEFT$(uhr$,2)="23” 

880 HID$(uhrs,2,1)=”9" 

890 WEND 

928 WHILE MID$(uhr$,2,1)="9" 

918 MIDS(uhrs,2,1)="/" 

920 WHILE LEFT$(uhr$,1)="2” 

930 HIDS(uhrs,1,1)=”"/” 

948 WEND 

958 HID$(uhrs$,1,1)=CHRS(CASC(LEFT$ (uhrs$, 1 
))+1) 

960 WEND 

978 MID$(uhr$,2,1)=CHRS(ASC(MID$ (uhr ,2, 

2))+1) 

980 WEND 

990 MID$(uhr$,4,1)=CHRS(ASC(MID$ (uhr$ ,4, 

1))+1) 

1008 WEND 

1018 MID$(uhr$,5,1)=CHRS(ASC(MIDS (uhr$,5 
‚2)+1) 

1028 WEND 

1830 MID$(uhr$,7,1)=CHRS(ASC(HID$S (uhr$,7 

‚2)+1) 

1048 WEND 

1850 HID$(uhr$,8,1)=CHR&S(ASC(RIGHT$ (uhr 

‚2)+1) 

18608 WINDOW #4,32,40,25,25 

1078 IF mo=1 THEN WINDOW #4,32,40,25,25: 

PRINT#4 ‚uhr$; 

1080 IF mo=2 THEN LOCATE #1,72,3:PRINT#1 

‚uhr$;” ” 

10898 RETURN 
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1180 p2=8 

1118 un$="" 

1128 WHILE LEN (ung) <>) LEN (std$) 
1130 LOCATE #3 ,pl+p2,p3+1 

1140 PRINT#3 ‚CHR$ (244); 

1158 s&=INKEYS 

1160 IF s$=""” THEN 1150 

1178 c=ASC(s$) 

1180 WHILE s$ <> ”"":s$ = INKEYS:WEND 
1198 WHILE c=127 AND p2) 8 

1288 LOCATE #3,pl+p2,p3+1 

1218 PRINT#3,CHR$S (32); 

1220 p2=p2-1 

1230 LOCATE #3, pl+p2,Pp3 

1240 PRINT#3, MID$ (std$,p2+1); 

1250 un$=LEFT$ (un$ ,LENW(un$)-1) 

1260 c=8 

1278 WEND 

1280 WHILE c=13 

1298 un$=STRING$ (LEN (std$)-p2,48) + un 
$ 

1380 LOCATE #3,p1,p3 

1318 PRINT#3 ‚un$; 

1320 LOCATE #3,pl+p2,p3t+1 

1330 PRINT#3,CHR$ (32); 

1340 c=8 

1358 WEND 

1368 WHILE c > 47 AND c « 58 

1378 LOCATE #3,pl+p2,p3 

1380 PRINT#3, CHR$(c); 

1398 LOCATE #3 ,pl+p2,p3+1 

1408 PRINT#3, CHR$ (32); 

1410 p2=p2+1 

1420 un$=un$s+CHR$(c) 

1438 c=8 

1440 WEND 

1458 WEND 

1460 IF VAL (un$) <( y THEN pl=pl+LEN (st 
d$)+1:RETURN 

1478 LOCATE #3,pl,p3 

1488 PRINT#3, std$; 

1498 GOTO 1188 

1508 chr=P0OS (#8) 

1518 lue=VPOS (#8) 

1520 PRINT#3,”Eingabe richtig? (J/N)”; 
1530 ein$=INKEYS$:IF eins=""” THEN 1538 
1548 IF ein$="j” OR ein$="j” THEN s$="J” 
:GOTO 1568 

1550 IF ein$="n" OR ein$="N” THEN 1568 
156@ LOCATE chr ,lue 

1578 PRINT SPACES$ (22); 

1588 IF s$="J” THEN c=1 ELSE c=8 

1590 RETURN 

1600 REM FARBEINGABE: 

1610 GOSUB 318 

1620 LOCATE #3,14,4:PEN#3,2:PRINT#3,”FAR 
BEINGABE:” 

1630 LOCATE #3,14,5:PRINT#3 ,"=========== 


-n» 


1640 LOCATE #3,1,7:PEN#3,3:PRINT#3,”"Zu A 


nfang kann der Benutzer dieses Pro- gram 
mes seine eigenen Farbvorstellungen fuer 
die Rand-, Schrift- und Papierfarbeeing 
eben. Es koennen jedoch die Farb- eins 
tellungen vom Autor uebernommen” 


1650 PRINT#3,”werden. Sollte dies der Fa 
Il sein, so druecken sie bitte sofort 


die COPY-Ta- ste. Ansonsten koennen Sie 

die Hummer der Farbe eingeben.” 

16608 FOR wa=1! TO 1088 

1678 IF INKEY (9) > -1 THEN GOTO 2168 

1680 NEXT va 

1690 PRINT#3:PRINT#3:PEN#3,3:1NPUT#3,” 
RANDFARBE: ”;ein 

17080 IF ein < B OR ein 26 THEN PRIMT CH 

R$ (7) :ein=8:60TO 1698 

1710 PEN#3,2:PRIWT#3,”Ist die Eingabe ri 

chtig (j/n)?” 

1728 ein$=INKEY$:IF ein$="" THEN 17280 

1730 IF ein$="j” OR ein$="J” THEN 1768 

1748 IF ein$="n” OR ein$="N” THEN 1698 

1758 GOTO 1728 

1760 rdfb=ein 

1770 BORDER rdfb 

1788 PEN#3 ,3:PRINT#3:PRIWT#3:IWPUT#3,” 
PAPIERFARBE: ”;ein 

1798 IF ein ( B OR ein >26 THEN PRINT CH 

R$ (7) :ein=8:G0TO 1788 

1880 PENH#3,2:PRINT#3,”Ist die Eingabe ri 

chtig (j/n)?” 

1818 ein$=INKEY$:IF ein$="" THEN 1818 

1828 IF ein$="j” OR ein$="J” THEN 1858 

1830 IF ein$="n" OR ein$="N” THEN 1788 

1848 GOTO 1818 

1850 pafb=ein 

1868 INK B,pafb 

1878 PEN#3,3:PRINT#3:PRINT#3:INPUT#3," 
STIFTFARBE #1: ”;ein 

1888 IF ein < @ OR ein >26 THEN PRINT CH 

R$(7):ein=8:60T0 1878 

1890 PEN#3,2:PRINT#3,”"Ist die Eingabe ri 

chtig (j/n)?” 

1908 ein$=INKEY$:IF ein$s=""” THEN 1908 

1918 IF ein$="j” OR ein$="J” THEN 1948 

1920 IF ein$="n” OR ein$="N” THEN 1870 

1938 GOTO 1908 

19408 stfb(1)=ein 

I9S5Q INK 1,stfb(1]) 

1968 PEN#3,3:PRINT#3:INPUT#3,” 

STIFTFARBE #2: ”;ein 

1978 IF ein < E OR ein 26 THEN PRINT CH 

R$ (7) :ein=8:6G0T0 1968 

1980 PEN#3,2:PRINT#3,”"Ist die Eingabe ri 

chtig (j/n)?” 

1990 ein$=INKEYS$:IF eins="" THEN 1998 

2008 IF ein$="j” OR ein$="J” THEN 2038 

2818 IF ein$="n” OR ein$="N” THEN 1968 

20828 GOTO 1998 

20308 stfb(2)=ein 

28408 INK 2,stfb(2) 
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2058 PEN#3,3:PRINT#3:INPUT#3,” 
STIFTFARBE #3: ”;ein 

2068 IF ein < B OR ein )26 THEN PRINT CH 
R$ (7) :ein=8:C0TO 2058 

2070 PEN#3,2:PRINT#3,”Ist die Eingabe ri 
chtig (j/n)?” 

2080 ein$=INKEYS:IF ein$="" THEN 2080 
2098 IF ein$="j” OR ein$="J” THEN 2128 
210808 IF ein$="n" OR eins="N” THEN 20858 
2118 GOTO 2118 

2128 stfb(3)=ein 

2130 INK 3,stfb(3) 

2148 IF dula=8 THEN 2168 

2158 IF dula=! THEN RETURN 

2160 REM SPEICHERMEDIUM ABFRAGE: 

2178 GOSUB 318 

2180 LOCATE #3,9,3:PEN#3,2:PRINT#3,"SPEI 
CHERMEDIUM ABFRAGE:” 


2200 LOCATE #3,3,7:PEN#3,3:PRINT#3,”"Wird 
das Programm auf Datasette”:LOCATE#3,34 
‚T:PEN#3,1:PRINT#3,” (1)”:LOCATE #3,3,8: 
PEN#3,3:PRINT#3,"oder Diskette ”:LOCATE 
#3,17,8:PEN#3,1:PRINT#3,”(2) ”":LOCATE #3 
‚21,8:PEN#3,3:PRINT#3 ,"angewendet?” 
2210 ein$=INKEYS$:IF ein$="" THEN 2210 
2220 IF ein$ ( "1" OR eins ) "2” THEN 22 


2230 IF ein$="1" THEN dd=1:/TAPE 
2240 IF ein$="2” THEN dd=2:/DISC 
2250 IF dula-0 THEN 2678 
2260 IF dula=1 THEN RETURN 
2270 REM SCHRIFTTYPEN: 
2280 SYMBOL AFTER 47 
2290 SYMBOL 48,127 ,99,99,99,99,99,127,8 
2300 SYMBOL 49,112,48,48,48,124,124,124, 


2310 SYMBOL 50,255,3,3,255,192,192,255,0 
2320 SYMBOL 51,126,6,6,127,7,7,255,8 
2330 SYMBOL 52,112,112,112,119,119,127,7 


2340 SYMBOL 53,127 ,96 ,96,127 ,7,7,127,0 
2350 SYMBOL 54,124,108,96 ,127 ,99,99 ‚127, 


2360 SYMBOL 55,127,3,3,31,24,24,24,0 
2370 SYMBOL 56,62,54,54,127,119,119,127, 


2380 SYMBOL 57,127 ,99,99,127,7,7,7,0 
2390 SYMBOL 65,63,51,51,127,115,115,115, 


2400 SYMBOL 66,126,102,102,127,103,103,1 
2410 SYMBOL 67,127,103,103,96 ,99,,99,127, 
2420 SYMBOL 68,126,102,102,119,119,119 1 
2430 SYMBOL 69,127 ,96,96,127 ,112,112,127 


2440 SYMBOL 78,127 ,96 ,96 ,127 ,112,112,112 


[) 
2 

2450 SYMBOL 71,127,99,96,111,103,103,127 
[) 

’ 

2460 SYMBOL 72,115,115,115,127,115,115,1 
15,0 

2470 SYMBOL 74,12,12,12,14,14,110,126 ,0 
2480 SYMBOL 73,12,12,12,12,60,60,60,8 
2490 SYMBOL 75,102,102,108,127,103,183,1 
03,0 

2500 SYMBOL 76,48,48,48,112,112,112,127, 
f] 

2510 SYMBOL 77,103 ,127,127,119,103,103,1 
03,0 

2520 SYMBOL 78,103,119,127,111,103,103,1 
03,0 

2530 SYMBOL 79,127,99,99,103,103,103,127 
[) 

2548 SYMBOL 88,127 ,99,99,127,112,112,112 
[) 

’ 

2550 SYMBOL 81,127 ,99,99,103,103,103,127 


R, 
2560 SYMBOL 82,126,102,102,127,119,119,1 
19,0 

2570 SYMBOL 83,127 ,96,127,3,115,115,127, 


f) 
2580 SYMBOL 84,127,28,28,28,28,28,28,0 
2598 SYMBOL 85,103,103,103,103,103,103,1 


2600 SYMBOL 86,103,103,103,103,111,62,28 
2610 SYMBOL 87,103,103,103,111,127,127,1 
2620 SYMBOL 88,115,115,115,62,103,1803,18 
2630 SYMBOL 89,103,103,103,127,28,28,28, 
2648 SYMBOL 90,127,102,108,24,55,103,127 


2650 SYMBOL 163,0,195,36,24,24,36,195,8 
2660 RETURN 

2670 REM MENUE: 
2680 p=1 

2698 durchla=d 
2708 durch=2 

2718 durchl=8 

2720 nam=E 

2730 GOSUB 428 
2740 PAPER#3,0:PEN #3,1 
2750 CLS#3 

2760 PLOT 160,90,p 
2770 DRAWR 250,8 
27808 DRAWR 8,188 
2790 DRAWR -250,8 
2800 DRAWR 8,-188 
2810 PLOT 418,98 
2820 DRAWR 12,12 
2830 DRAWR 8,188 
2840 PLOT 410,278 
2850 DRAWR 12,12 
2860 DRAWR -250,8 
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LISTINGS 


2878 PLOT 168,278 

2888 DRAWR 12,12 

2890 PLOT 159,98 

2922 DRAWR 2,180 

2910 PLOT 411,98 

2920 DRAWR 0,188 

29308 PLOT 421,182 

2940 DRAWR 8,182 

2958 PLOT 168,15 

2960 DRAWR 250,0 

2970 DRAWR 8,22 

2982 DRAWR -258,8 

2990 DRAWR 8,-22 

3288 PLOT 418,15 

3810 DRAWR 12,12 

3820 DRAWR 2,22 

3038 PLOT 418,37 

3048 DRAWR 12,12 

3050 DRAWR -250,8 

3268 PLOT 160,37 

30870 DRAWR 12,12 

3088 PLOT 411,15 

3090 DRAWR 8,22 

3l0@a PLOT 424,26 

3110 DRAWR 8,22 

3120 PLOT 159,37 

3130 DRAWR 8,-22 

3140 INK 1,stfb(1):LOCATE #3,22,5: PRINT 
#3, ” HAUPTMENUE”: LOCATE #3,22, 
7: PRINT #3,” C 1 ] Farben aendern”: LO 
CATE #3,22,8: PRINT#3,” [ 2 ] Verwalten 
der Datei”:LOCATE#3,22,9:PRINT#3,” [3 
] Datei einladen” 

3150 LOCATE #3,22,10:PRINT#3,"” [4 1] Da 
tei abspeichern”:LOCATE #3,22,11:PRINT#3 
‚, 5 1] Drucken”: LOCATE #3,22,12: PRI 
NT#3, ” [6 ] Programm beenden” :LOCATE 
#3,22,13:PRINT#3,” [ 7 ] Speichermedium 
aendern” 

3160 LOCATE #3,22,14:PRINT#3,” [8] Di 
skettenmenue” 

3170 LOCATE #3,22,19: PRINT#3, ” BI 
TTE WAEHLEN SIE ” 

3188 ein$=INKEY$: IF eins="" THEN 3180 
3190 IF eins<”1” OR ein$)”8” THEN 3188 
3208 ON VAL(ein$) GOTO 3220,3230,5698,61 
60,6940,7510,3210,7718 

3210 dula=1:G0SUB 2160:dula=2:60T0 2678 
3220 dula=1:G0SUB 1600:dula=2:G0T0 2678 
3230 REM VERWALTEN DER DATEI: 

3240 MODE 2 

3258 GOSUB 3260:60T0 3328 

3268 PLOT 328,8:FOR i=320 TO 323:PLOT i, 
8:DRAW i ,488:NEXT 

3270 RETURN 

3280 FOR st=1 TO 328 

3298 PLOT st ,158:PLOT st ,151:PLOT st ‚152 
3300 NEXT 

3310 RETURN 

3328 WINDOW #6,1,40,17,25 


- 


3330 WINDOW #7 ,1,40,1,16 

3340 WINDOW #5 ,42,80,1,25 

3350 REM MENUEH?2: 

3360 INK 1,stfb(3):PEN#7 ,1:PEN#6 ‚1 
3378 CLS#7 


3380 LOCATE #7 ,8,2:PRINT#7 ,"VERWALTEN DE 
R DATEI:” 


3398 LOCATE #7 ,5,43:PRINT#?,"” [ 1 ] Neue 
Datei erstellen” 

3488 LOCATE #7 ,5,5:PRINT#7 ,"” C 2 ] Date 
i einladen” 

3410 LOCATE #7 ,5,6:PRINT#7,” [ 3 ] Date 
i abspeichern” 

34208 LOCATE #7,5,7:PRINT#7,"” C 4 ] Date 
i aendern” 

3430 LOCATE #7 ,5,8:PRINT#7,” C 5 ] Date 

n eingeben” 

3440 LOCATE #7 ,5,9:PRINT#7," [6 ] Date 

n loeschen” 

3450 LOCATE #7 ,5,10:PRINT#7,” [ 7 ] Dat 

ei ansehen” 

3468 LOCATE #7 ,5,11:PRINT#?,” [ 8 ] Hau 

ptmenue” 

3470 GOSUB 3288 

3480 ein$=INKEYS$:IF eins="" THEN 3488 

3498 IF eins >”8” OR eins« ”U” THEN 53480 


3520 ON VAL (ein$) GOTO 3510,5690,6160,4 

950,4290,4610,5650,2738 

3510 REM DATEI NEU ERSTELLEN: 

3520 daub$=""” 

3530 boxn=2 

3540 reihe=d 

3558 FOR i=1 TO 50 

3560 dibe$s(i)="" 

3570 WEXT i 

3580 CLS#7:GOSUB 3288 

3598 LOCATE #7 ,1,2:INPUT#7 ,"Geben Sie bi 

tte die Überschrift fuer dieDiadatei ein 
‚wie z.b.: Urlaubsdias von Italien”;ein 

$ 

3608 daub$=ein$ 

3610 INPUT#7 ,"In welcher Diabox werden d 
ie Dias ein- geordnet? Nummer: ";ein 

3620 boxn=ein 

36308 INPUT#7 ,"In welcher Reihe der Diabo 

x werden die Dias eingeordnet. 1 oder 2 

";reih 

3640 PRINT#? ,"Sie koennen 58 Bildbeschre 
ibungen fuer Ihre Dias vornehmen. Dies 

entspricht einem Dia-Sortiment-Reihe 

aus Ihrer Diabox.” 

3650 PAPER #5 ,1:PEN #5,2:CLS#5:PRINT#5,” 

Dateiueberschrift: ”;daub$ 

3660 PRINT#5,”"Boxnummer: ”;boxn 

3678 PRINT#S,”Reihe :"”reih 

36820 PRINT#5, STRING$ (39,154) 

3690 PAPER #6 ,0:PEN#6,1:PAPER #7 ,0:PEN#7 
1 

’ 

3700 FOR i=1 TO 58 
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4168 IF ant$="j” OR ant$="J” THEN 4198 


3710 PRINT#6,”Bitte geben Sie fuer das ” 
;i;”. Dia die”:IMNPUT#6,”"Beschreibung ein 
:";dibe$(i) 

3720 PRINT#6,”Ist die Eingabe richtig (ij 
/n)?” 

37308 ein$=INWKEY$:IF eins="" THEN 3738 

3740 IF ein$="j” OR eing="J” THEN 3778 

3758 IF ein$="n" OR ein$s="N" THEN 3718 
3768 GOTO 3738 

3770 PRINT#6,"Weitere Eingaben (Leertast 
e(=j)/n)?” 

37808 ein$=INKEY$:IF ein$="" THEN 3788 
3790 IF ein$="n"” OR ein$="N" THEN 3858 

3800 IF ein$=" ” THEN 3828 

3810 GOTO 3788 

3820 IF i<10 THEN PEN#5,2:PRINT#5,” ";i; 
”: ”;dibe$(i) 

3830 IF i)9 THEN PEN#S,2:PRINT#S, i;”: ” 
;sdibe$(i) 

3840 NEXT i 

3850 IF i<10 THEN PEN#5S,2:PRINT#S,” ”;i; 
”: ”sdibe$(i) 

3860 IF i39 THEN PEN#S,2:PRINT#S, i;"”: ” 
;sdibe$(i) 

3870 PRINT#7," FERTIG !!!”:FOR was! 
TO 50@:NEXT wa:DATEN=1:CLS#6.:60T0 3350 

3880 REM DATEI ANSEHEN: 

3890 PAPER #5,1:CLS#5:PEN #5,2:PRINT#S,” 
Dateiueberschrift: ";daub$ 

3980 PRINT#5,"Boxnummer: ”;boxn 

3910 PRINT#H5S,”"Reihe :”reih 

3920 PRINT#S, STRINGS$ (39,154) 

3930 FOR i=1 TO 18 

3940 IF dibe$(i)=leer$ THEN GOTO 3978 
3950 IF i<i@ THEN PEN#S,2:PRINT#S,” ”;i; 
”: "sdibe$(i) 

3960 IF i39 THEN PEN#5S,2:PRINT#S, i,;”: ” 
sdibe$(i) 

3970 NEXT i 

3980 PEN#6 ,1:PAPER #6 ,0 

3990 PRINT#6 ,”"Weiter auflisten (j/n)” 
4000 ant$=INKEYS:IF ant$=""” THEN 40880 
4ölO IF ant$="j”" OR ant$="J" THEN 4040 
40208 IF ant$="n” OR ant$="N” THEN 4280 
40308 GOTO 4088 

4040 CLS#5:PAPER #5,1:PEN #5,2:PRINT#5,” 
Dateiueberschrift: ”;daub$ 

4058 PRINT#5,”Boxnummer: ";boxn 

4060 PRINT#5,”Reihe :”reih 

4078 PRINT#S, STRINGS (39,154) 

4080 FOR i=18 TO 34 

408908 IF dibe$(i)=leer$ THEN GOTO 4128 
4100 IF i<10 THEN PEN#S,2:PRINT#5,” ";i; 
”"ı *"sdibe$(i) 

4110 IF id9 THEN PEN#5,2:PRINT#5, i;”: ” 
;sdibe$(i) 

4120 NEXT i 

4130 PEN#6,1:PAPER #6 ,8 

4140 PRINT#6 ,"Weiter auflisten (j/n)” 
4150 ant$=INKEYS$:IF ant$="" THEN 4158 


4 


178 IF ant$="n”" OR ant$="N” THEN 4288 


4188 GOTO 4158 

4190 CLS#5S:PAPER #5,1:PEN #5,2:PRINT#S,” 
Dateiueberschrift: ”;daub$ 

4200 PRINT#5,”Boxnummer: ";boxn 


4210 PRINT#5,"Reihe 


:”reih 


4220 PRINT#5, STRING$ (39,154) 


4238 FOR i=34 TO SE 
4248 IF dibe$(i)=leer$ THEN GOTO 4278 
4250 IF i<10 THEN PEN#5,2:PRINT#S,"” ";i; 


nu. 
. 


”";dibe$(i) 


4260 IF i)9 THEN PEN#5,2:PRINT#S, i;": ” 
;dibes(i) 

4270 NEXT i 

4280 CLS#6 :RETURN 

4290 REM DATEN EINGEBEN: 

4300 IF DATEN=0 THEN CLS#7 :G0SUB 3280: PR 
INT#T,’KEIME DATE HM !!!";CHR&(7) 
:FOR WA=1 TO 1200:NEXT WA:GOTO 3358 

4310 CLS#7 :G0SUB 3288 

4320 CLS#6 

4330 LOCATE #7 ,1,5:PRINT#7 ,"DATEN EINGEB 
EN:” 

4340 LOCATE #7 ‚1,6 :PRINT#7 ‚"============ 


” 


4350 GOSUB 3880 

4360 PRINT#6,”"Fuer welche Dia Nummer wol 
len Sie” 

4370 INPUT#6 ‚,"etwas eingeben” ;numm 

4380 IF numm (1 OR numm )58 THEN 4368 
4390 PRINT#6,”"Ist es dieses Dia (j/n)?” 
4408 IF numm)9 THEN PRINT#6, numm;”": ”;d 
ibe$(numm) 

4410 IF numm£10 THEN PRINT#6,” ”";numm;”: 


”;dibe$(numm) 


4420 ant$=INKEY$:IF ant$="" THEN 4420 
4438 IF ant$="n" OR ant$="N” THEN 4360 
4440 IF ant$="j” OR ant$="j" THEN 4468 
4450 GOTO 4420 

44608 PRINT#6,"Geben Sie bitte nun den Ku 
rztext ein:” 

4478 INPUT#6,” ”;dibe$(numm) 

4480 IF numm)9 THEN PRINT#6, numm;”: ”;d 
ibe$(numm) 

4490 IF numm<10 THEN PRINT#6,” ”;numm;”: 


”;dibe$(numm) 


4588 PRINT#6,”O.K..(j/n)?” 

45108 ant$=INKEYS:IF ant$="" THEN 4510 
4520 IF ant$="j” OR ant$="J” THEN 4558 
4530 IF ant$="n" OR ant$="N” THEN 4468 
4540 GOTO 4518 

4550 PRINT#6,”"Weitere Eingaben?” 

4560 ant$=INKEYS:IF ant$="" THEN 4560 
4578 IF ant$="j” OR ant$="J” THEN CLS#6: 
GOTO 4298 

4580 IF ant$="n" OR ant$="N” THEN 4608 
4590 GOTO 4568 

4600 CLS#6:G0TO 3358 

4610 REM DATEI LOESCHEN: 


LISTINGS 


4620 IF DATEN=B THEN CLS#7:60SUB 3280:PR 
INT#7 ,’KEINE DAT EM !?!!”;CHRS(7) 
:FOR WA=1 TO 1208:NEXT WA:GOTO 3358 

4630 CLS #5:CLS #6:CLS #7 :60SUB 3288 
4640 PRINT#6,”Es sollen also einzelen Da 
ten geloescht werden?” 

4650 ANTS=INKEYS:IF ANTS$S="" THEN 4658 
4660 IF ANTS="j"OR ANT$S="J”THEN 4698 
4670 IF ANTS$="n"OR ANTS="N”THEN PRINT#6, 
"KOMISCH !!!”:FOR wa=! TO 1808:NE 
AT wa:CLS#6::G0T0 3358 

4680 GOTO 4658 

4690 CLS#5:G0SUB 3888 

47008 CLS#7 :GOSUB 3280:L0CATE #7,1,5:PRIN 
T#7 ,"DATEN LOESCHEN:” 

4710 LOCATE #7 ,1,6:PRINT#7 ,"============ 


4720 PRINT#6,"Welche Dia-Beschreibung so 
Il geloescht werden?” 

4730 INPUT#6,”Nummer: ”;numm 

4748 IF numm“!1 OR numm )50 THEN 4730 

4750 PRINT#6,"Ist es folgendes Dias (j/n 
32:2” 

4760 IF numm(10 THEN PRINT#6,” "”;numm;” 
”;dibe$(numm) 

4770 IF numm)9 THEN PRINT#6, numm;”: ";d 
ibe$(numm) 

4780 ant$=INKEY$:IF ant$="" THEN 4788 

4790 IF ant$="j” OR ant$="J”" THEN 4828 

48008 IF ant$="n" OR ant$="N” THEN 4728 

4812 GOTO 4788 

4820 PRINT#6,"Soll es geloescht werden?” 

4830 ant$=INKEYS$:IF ant$="" THEN 4838 

4840 IF ant$="j” OR ant$="J" THEN 4870 

4850 IF ant$="n”" OR ant$="N"” THEN 4720 

4860 GOTO 4838 

4870 a$="" 

4880 dibe$(numm)=a$ 

4890 PRINT#6 ,”Weitere Aenderungen?” 

4900 ant$=INKEYS$:IF ant$="" THEN 4908 

4910 IF ant$="j” OR ant$="J” THEN CLS#6: 

GOTO 4618 

4920 IF ant$="n" OR ant$="N" THEN 4948 

4930 GOTO 190 

4940 CLS#6.:60T0 3358 

4950 REM DATEI AENDERN: 

4960 IF DATEN=Q THEN CLS#7 :GOSUB 3280:PR 

INT# ,’KEIMWE DATEMN !!!”;CHR$(7) 
:FOR WA=1 TO 1200:NEXT WA:GOTO 3358 

4970 GOSUB 3888 

4980 CLS#7 :GOSUB 3280 

4990 LOCATE #7,1,3:PRINT#7 ,”"DATEN AENDER 

H:” 

S5BBB LOCATE #7 ,1,4:PRINT#7 ,"============ 

Sala PRINT#6,"Soll die Boxnummer geaende 

rt werden?” 

5828 ant$=INKEY$:IF ant$="" THEN 5028 

5838 IF ant$="j” OR ant$="J” THEN 5868 

5848 IF ant$="n" OR ant$="N” THEN 5138 


5052 GOTO 5828 

5060 PRINT#6,”Geben Sie bitte nun die ne 
ue Boxnummer”:INPUT#6,” a :”;boxn 

5070 PRINT#6,”Boxnummer: yon 

5888 PRINT#6,”0.K.(j/n)?” 


5090 ant$=INKEYS:IF ant$=""” THEN 5898 
5108 IF ant$="j” OR ant$="J"” THEN 5138 


511@ IF ant$="n"” OR ant$="N” THEN 5068 
5128 GOTO 5298 

5138 PRINT#6,”"Soll die Dateiueberschrift 
geaendert werden?” 

5140 ant$=INKEYS:IF ant$="" THEN 5148 

5158 IF ant$="j” OR ant$="J” THEN 5180 

5160 IF ant$="n" OR ant$="N” THEN 5258 

5178 60TO SB 

5188 PRINT#6,”Geben Sie bitte nun die ne 

ue Datei-”:INPUT#6 ,"ueberschrift ein”;da 

ub$ 

5190 PRINT#6,”"Dateiueberschrift :”;daub$ 

5288 PRINT#6,”0.K.(j/n)?” 

5210 ant$=INKEYS:IF ant$="" THEN 5210 

5228 IF ant$="j” OR ant$="J” THEN 5258 

5230 IF ant$="n"” OR ant$="N” THEN 5138 

5248 GOTO 5218 

5250 PRINT#6,”"Soll die Reihennummer geae 

ndert werden?” 

5260 ant$=INKEY$:IF ant$="" THEN 5268 

5278 IF ant$="j” OR ant$="J” THEN 5308 

5280 IF ant$="n" OR ant$="N” THEN 5368 

5292 GOTO 5298 

5300 PRINT#6,”Geben Sie bitte nun die ne 

ue Rei-”:INPUT#6,”hennummer ein”;reih 

5310 PRINT#6,”Reihe :”;reih 

5320 PRINT#6,”O0.K.(i/n)?” 

5330 ant$=INKEY$:IF ant$=""” THEN 5330 

5348 IF ant$="j” OR ant$="J” THEN 5368 

5350 IF ant$="n"” OR ant$="N” THEN 5320 

5360 PRINT#6 : PRINT#6 ‚Weiter (i/n)?” 

5370 ant$=INKEY$:IF ant$=""” THEN 5378 

5380 IF ant$="j” OR ant$="J” THEN GOTO 5 

418 

5390 IF ant$="N” OR ant$="n"” THEN CLS#6: 

GOTO 3358 

54808 GOTO 5378 

5410 INPUT #6,”"Welche Nummer hat das zu 

aendernde Dia :”;numm 

5428 IF numm‘(l OR numm >58 THEN 5418 

5438 PRINT#6,”Ist es folgendes Dias (j/n 
)?:” 

5448 IF numm<18 THEN PRINT#6,” ” ;numm;” 
”;dibe$(numm) 

5458 IF numm)9 THEN PRINT#6,” 
”»dibe$(numn) 

5468 ant$=INKEYS$:IF ant$="" THEN 5468 

5470 IF ant$="j"” OR ant$="J” THEN 5500 

5480 IF ant$="n" OR ant$="N” THEN 5418 
5492 GOTO 5468 

5580 PRINT#6,”O.K.. 


ext,” 


”. .” 
;numm; 


Aendern Sie bitte je 
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LISTINGS 


5510 INPUT#6,” ”;dibe$(numm) 

5520 IF numm)9 THEN PRINT#6, numm;”: ”;d 
ibe$ (numnm) 

5530 IF numm(10 THEN PRINT#6,” ";numm;” 
”‚dibe$(numn) 

5540 PRINT#6,”0.K..(j/n)?” 

5558 ant$=INKEY$:IF ant$="" THEN 5558 

5560 IF ant$="j” OR ant$="J” THEN 5598 

5578 IF ant$="n" OR ant$="N” THEN 5588 

5582 GOTO 5550 

5598 PRINT#6,"Weitere Aenderungen?” 

5600 ant$=INKEYS:IF ant$="" THEN 5608 

5610 IF ant$="j”" OR ant$="J” THEN CLS#6: 

GOTO 4958 

5620 IF ant$="n"” OR ant$="N” THEN 5640 

5632 G0TO 5608 

5640 CLS#6::G0T0 3358 

5650 REM AUFRUF FUER DATEI MWACHSEHEN: 

5660 IF DATEN=0 THEN CLS#7:G0SUB 3280:PR 


INT#7,’"KEIMWE DATEN !!!”;CHRS(7) 
:FOR WA=1 TO 12088:NEXT WA:GOTO 3358 
5670 CLS#5 


5680 GOSUB 3880:G0T0 3358 

5698 REM. DATEI EINLADEN: 

5700 daub$="" 

5718 boxn=8d 

5720 reihe=0 

5730 FOR i=1 TO 58 

57408 dibe$(i)="”" 

5750 WEXT i 

5760 GOSUB 318 

5770 LOCATE#3,13,3:PEMN #3,2:PRINT#3,"DAT 
EN EIWLESEN:” 

5780 LOCATE#3,13,4:PRINT#3 ,"============ 


5790 IF dd=1 THEN GOSUB 5888 

5800 PEN #3,3:PRINT#3:PRINT#3,"Disketten 

inhalt anzeigen ? (J/N)” 

5810 ant$=INKEY$:IF ant$="" THEN 5818 

5820 IF ant$="j” OR ant$="J" THEN CLS#3: 

PEN#3,3:FOR warte=1 TO 5:PRINT:WEXT wart 

e :CAT:GOTO 5858 

5838 IF ant$="n" OR ant$="N"” THEN 5968 

5848 GOTO 5818" 

5858 ant$=INKEY$:IF ant$=""” THEN 5850 

5860 IF ant$=" ” THEN 5950 

5870 RETURN 

5880 PRINT#3:PEN #3,3:PRINT#3,” Wuens 

chen Sie einen Kassettenka- talog 
(i/n)?” 

5898 ON BREAK GOSUB 5958 

5928 ant$=INKEYS$:IF ant$="" THEN 5980 

5910 IF ant$="j” OR ant$="J” THEN 5938 

5920 IF ant$="n" OR ant$="N” THEN 5950 

5930 ON BREAK os 5950 ELSE 5958 

5940 PRINT#3,” Mit 2%ESC koennen Sie abb 

rechen.”:CAT 

S9SQ CLS#3:LOCATE #3,3,9:0W BREAK GOSUB 

7680 

5960 IF dd=1 THEN PRINT#3,”"Datenkassette 


in das Laufwerk legen!” 
5978 IF dd=2 THEN PRINT#3,"Datendiskette 
in das Laufwerk legen! 


5980 PRINT#3:PRINT#3,” 0. 
(i/n)?” 

599 ant$=INKEY$:IF ant$="" THEN 5998 

6088 IF ant$="j” OR ant$="j” THEN 6838 

6810 IF ant$="n" OR ant$= pr THEN 5988 


68208 GOTO 5998 

6038 LOCATE #3,3,14 

6048 PRINT#3,"Dateiname Er 

6850 LOCATE #3,18,14 

60608 INPUT #3 ,dana$:dana$=dana$:IF LEN ( 
dana$)(2 OR LEN (dana$))8 OR INSTR(dana 
$,”.”)<dO OR INSTR(dana$,” ”")<)O THEN LO 
CATE #3,18,14:PRINT#3, SPC(26);:G0OTO 686 
] 

6070 OPENIN dana$ 

6080 FOR i=1 TO 58 

6090 INPUT #9,dibe%(i) 

6100 WEXT i 

6110 INPUT #9,boxn 

6120 INPUT #9 ‚daub$ 

6130 INPUT #9,reih 

6140 CLOSEIN 

6158 DATEN=1:60T0 2678 

6160 REM DATEN ABESPEICHERN: 

6178 GOSUB 318 

6188 IF DATEN=8 THEN CLS#3:PRINT#3,”K E 

INE DATEKM !!!”;CHRS(7):FOR WAsI T 
0 1200:WEXT WA:GOTO 2678 

6190 LOCATE#3,12,3:PEN#3,2:PRINT#3 ,”DATE 
N ABESPEICHERN:” 

6208 LOCATER#3, 12,4:PRINT#3 ,"============ 


62108 IF durchl>1 THEN GOTO 6458 

6220 IF dd=1 THEN GOTO 6318 

6230 PEN #3,3:PRINT#3:PRINT#3,"Disketten 

inhalt anzeigen ? (J/M)” 

6240 ant$=INKEYS:IF ant$=""” THEN 6240 

6250 IF ant$="j” OR ant$="J” THEN CLS#3: 

PEN#3 ,3:FOR warte=1 TO 5:PRINT:NEXT wart 

e :CAT :GOTO 6288 

6260 IF ant$="n" OR ant$="N”" THEN 6450 

6278 GOTO 6248 

6280 ant$=INKEYS$S:IF ant$=""” THEN 6280 

6290 IF ant$=" ” THEN 6458 

6380 RETURN 

6310 PRIWNT#3:PEN #3,3:PRINT#3,” Wuens 

chen Sie einen Kassettenka- talog 
(i/n)?” 

6320 ant$=INKEYS:IF ant$="" THEN 6320 

6330 ON BREAK GOSUB 6400 ELSE 6450 

6340 IF ant$="j”" OR ant$="J” THEN 6370 

6350 IF ant$="n" OR ant$="N” THEN 6488 

63608 GOTO 6348 

6370 ON BREAK GOSUB 6398 

6380 PRINT#3,” Mit 2%ESC koennen Sie abb 

rechen.”:CAT 

6390 ON BREAK GOSUB 7688 
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LISTINGS 


64008 CLS#3:G0SUB 310:L0OCATE-#3,1,12:PEN 

#3,3:PRINT#3,"In welchem Speed soll die 

Datei abge-”:LOCATE #3,1,13:PRINT#3,"&es 

peichert werden ”":LOCATE #3,20,13:PEN #3 
‚2:PRINT#3,”(08/1)”:LOCATE #3,25,13:PEN # 

3,3:PRINT#3,” ?” 

64108 ant$=INKEY$:IF ant$ = ”"” THEN 6418 

6428 IF ant$ <( ”8” OR ant$ ) "1" THEN 64 

10 

6430 IF ant$="0” THEN spe=d 

6440 IF ant$="1" THEN spe=! 

6450 CLS#3:LOCATE #3,3,9:0N BREAK GOSUB 

7688 

6460 IF dd=1 THEN PRINT#3,”"Datenkassette 
in das Laufwerk legen!” 

6470 IF dd=2 THEN PRINT#3,”Datendiskette 
in das Laufwerk legen! 

64808 IF nam=d THEN GOSUB 6518:60T0 6598 

6490 IF nam=1 THEN GOSUB 6568:G60T0 6598 

6520 RETURN 

6518 LOCATE #3,3,14 

6520 PRINT#3,”Dateiname Dr 

6530 LOCATE #3,18,14 

6540 INPUT #3 ,dana$:dana$=dana$:IF LEN ( 

dana$)(2 OR LEN (dana$))8 OR INSTR(dana 

$,”.”)OOB OR INSTR(dana$,” ”")XdO THEN LO 

CATE #3,18,14:PRINT#3, SPC(26);:GO0OTO 653 

[] 

6550 RETURN 

6560 LOCATE #3,3,14 

6570 PRINT#3,”Dateiname 

6580 RETURN 

6590 SPEED WRITE spe 

66020 OPENOUT dana$ 

6610 FOR i=1 TO 58 

6620 WRITE #9 ,dibe$(i) 

6630 NEXT i 

6640 WRITE #9,boxın 

6650 WRITE #9 ,daub$ 

6668 WRITE #9,reih 

6670 CLOSEOUT 

6680 durchl=d:nam=d 

6690 GOSUB 318 

6780 IF dd=1 THEN 6798 

6710 IF dd=2 THEN 6728 

6720 PEN #3,3:PRIWT#3,”Soll ich nochmal 

den Disketteninhalt anzeigen ? (J/N)” 

6730 ant$=INKEYS$:IF ant$=""” THEN 6738 

6740 IF ant$="j” OR ant$="J” THEN CLS#3: 

PEN#3,3:FOR warte=! TO 5:PRINT:NEXT wart 

e :CAT:GOTO 6778 

6758 IF ant$="n" OR ant$="N” THEN 2678 

67608 GOTO 67387 

6770 ant$=INKEY$:IF ant$="" THEN 6778 

6780 IF ant$=" ” THEN FOR wa=1! TO 1588:4 

EXT wa:GOTO 2678 

6790 LOCATE #3,1,12:PEN #3,3:PRINT#3, ”S 

oll eine Sicherheitskopie von der Datei” 
:LOCATE #3,1,13:PRINT#3,”gemacht werden 

”:LOCATE #3,16,13:PEN #3,2:PRIAT#3,”(ji/n 


:” ;dana$ 


)”:LOCATE #3,21,13:PEN #3,3:PRINT#3,”?” 
68008 ant$=INKEYS$:IF ant$="" THEN 6808 
6810 IF ant$="j” OR ant$="J” THEN CLS#3: 
durchl=2:6G0T0 6848 

6828 IF ant$="n" OR ant$="N” THEN 2678 


6830 GOTO 6880 
6840 LOCATE #3,1,15:PEN #3,3:PRINT#3,"Wi 


rd der alte Speed beibehalten” :LOCATE #3 
‚33,15:PEN #3,2:PRINT#3,”(i/n)”:LOCATE # 
3,38,15:PEN #3,3:PRINT#3,"?” 

6850 ant$=INKEYS:IF ant$="" THEN 6858 
6860 IF ant$="j”" OR ant$="J" THEN durchl 
=2:60T0 6890 

6878 IF ant$="n" OR ant$="N"” THEN CLS#3: 

durch1=8:G0T0 6488 

6880 GOTO 6858 

6890 LOCATE #3,1,17:PRINT#3,”"Soll auch d 
er alte Dateiname verwendet”:LOCATE #3,1 
‚18:PRINT#3 ,”werden”:LOCATE #3,8,18:PEN 
#3,2:PRINT#3,”(j/n)”:LOCATE #3,13,18:PEN 
#3 ,3:PRINT#3,”?” 

6988 ant$=INKEYS$:IF ant$="" THEN 6900 

6910 IF ant$="j”" OR ant$="J” THEN CLS#3: 
nam=1:dana$=dana$:ant$="":60T0 6480 

6928 IF ant$="n"” OR ant$="N” THEN CLS#3: 
nam= B:ant$="" :G0T0 6480 

6930 GOTO 6908 

6948 REM DRUCKEN: 

6950 IF DATEN=@ THEN CLS#7 :GOSUB 3280:PR 
INT#7 ,’KEINE DAT EM !!!”;CHR&(7) 
:FOR WA=1 TO 12B80@:NEXT WA:GOTO 3358 

6960 CLS#3 

6970 GOSUB 318 

6980 LOCATE #3,17,2:PEN #3,3:PRINT#3,"DR 

UCKEN:” 

6990 LOCATE #3,17,3:PRINT#3,”========" 
’008 PEN#3,2:PRINT#3:PRINT#3,"Anmerkung: 


7018 PRINT#3,”"Da es viele verschiedene D 
rucker gibt und die Treibersoftware fu 
er jeden Dru- cker anders ist, habe ich 
keine Trei- bersoftware fuer den Druck 
er in dieses Programm mit hinein progra 
mmiert.” 

7020 LOCATE#3,15,19:PEN #3,3:PRINT#3,"- 
ENTER - 

7038 IF INKEY(18) > -1 THEN 7058 

7048 GOTO 7838 
7058 PEN#3,2 
70608 PRIWT#3,” 
en!!” 

7078 PRINT#3:PRINT#3,” 

er auch wirklich” :PRINT#3,” 
lossen (j/n)?” 

7088 ant$=INKEY$S:IF ant$="" THEN 7080 
70898 IF ant$="j” OR ant$="J” THEN PRINT# 
8,” ”:GOTO 7128 

7108 IF ant$="n" OR ant$="N” THEN 7068 
7118 6G0TO 78887 

7128 PRINT#3:PRINT#3,"Sollen Beschriftun 


Drucker anschalt 


Ist der Druck 
angesch 
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LISTINGS 


£s-Ediketten (1) oder Dialisten (2) 
gedruckt werden?” 

7130 ant$=INKEY$:IF ant$=""” THEN 7138 

71408 IF ant$="1" THEN WIDTH 48:60T0 717 

[') 

7150 IF ant$="2” THEN WIDTH 88:60T0 732 

[] 

7168 GOTO 7138 

7178 PRINT#3,” 

TZT AN ZU DRUCKEN !!” 

7188 PRINT#8:PRINT#8,"Boxnummer: ”";boxn 

7198 PRINT#8,”Reihe ”;reih;”: ”;daub$ 

72008 PRINT#3,”"Kommt noch ein weiterer Dr 

uck auf die Edikette (j/n)?” 

72108 ant$=INKEY$:IF ant$=""” THEN 7218 

7220 IF ant$="j” OR ant$="J" THEN 2678 

7230 IF ant$="n"” OR ant$="N” THEN 7250 

7240 GOTO 7218 

7250 PRINT#3:PRINT#3,"Soll ich einen Abs 

chneidstreifen aus- drucken (j/n)? 

7260 ant$=INKEY$:IF ant$=""” THEN 7268 

7278 IF ant$="j” OR ant$="J” THEN 7388 

7280 IF ant$="n" OR ant$="N” THEN 2678 

7290 GOTO 7268 

73008 PRINT#8:PRINT#8 ,"------------------ 

7318 6G0OTO 2678 

7320 PRINT#3,” 

TZT AN ZU DRUCKEN !!” 

7330 PRINT#8, STRING$ (80,61) 

7340 PRINT#8,” DIAVERWALTUNG 
(C) 14.10.1986 Ffm. bei Christian L 

ueders z 

7350 PRIWNT#8, STRING$ (88,61) 

7368 PRINT#8 

7378 PRINT#8 

7380 PRINT#8 

7398 PRINT#8 


ORAJ, ICH FANG JE 


OKAJ, ICH FANG JE 


74008 PRINT#8,” DATEIUEB 
ERSCHRIFT: ” ;daub$ 

7410 PRINT#8,” BOXNUMME 
R: ”";boın 

74208 PRINT#8,” REIHE: ” 
jreih 


7430 PRINT#8, STRINGS (88,45) 
7440 PRINT#8 
7450 FOR i=1 TO 58 
7468 IF dibe$(i)=leers$ THEN GOTO 7498 
7470 IF i<10 THEN PRINT#B,” 
: ";dibes(i) 
7480 IF i>9 THEN PRINT#B,” 
"5": ”:dibes(i) 
7490 NEXT i 
7508 G0TO 2678 
7510 REM PROGRAMM BEENDEN: 
7520 GOSUB 318 
7530 LOCATE #3,18,3:PEN #3,2:PRINT#3,”EN 
DE:” 
7540 LOCATE #3,18,4:PRINT#3 ,"=====" 
7550 LOCATE #3,5,7:PEN#3 ,3:PRINT#3 ,"Sind 


n.,.M 
‚!; 


alle Daten abgespeichert?” 

7560 ant$=INKEY$:IF ant$=""” THEN 7568 
7570 IF ant$="j” OR ant$="J” THEN 7608 
7588 IF ant$="n"” OR ant$="N” THEN 2678 
7598 GOTO 7568 


7600 CLS#3:LOCATE #3,18,3:PEN #3,2:PRINT 
#3 ,”ENDE:” 


7610 LOCATE #3,18,4:PRINT#3,"=====" 

7628 PEN#3,3 

7630 LOCATE #3,4,6:PRINT#3,”Soll ich das 
Programm loeschen (1),":LOCATE #3,4,7:P 

RINT#3,”oder moechten Sie das Listings”: 
LOCATE #3,4,8:PRINT#3,”sehen (2).” 

7640 ant$=INKEY$:IF ant$="" THEN 7648 
7658 IF ant$="1” THEN CALL 8 

7668 IF ant$="2” THEN MODE 2:PEN 1:INK 1 
‚2:BORDER @:PAPER 8:INK 8,0:LIST 

7678 GOTO 7640 

7688 RETURN 

7690 RESUME NEXT 

7788 RETURN 

7718 REM DISKETTENMENUE: 

7728 GOSUB 318 

7738 PEN#3,2 

7748 IF dd=2 THEN 7798 ELSE 7758 

7750 LOCATE #3,3,5:PRINT#3,"DIESES UNTER 
MENUE IST NICHT FUER DATA-” 

7768 LOCATE #3,3,6:PRIWT#3,”SETTEN-USER 
ZUGAENGIG 1” 

7770 FOR wart=1 TO 2008:NEXT wart 

7788 GOTO 2670 

7790 LOCATE #3,8,3:PRINT#3,"DISKETTENHEN 

UE:” 

7808 LOCATE #3,8,4:PRINT#3, STRINGS(15,” 

=”) 

7810 PEN#3,3 

7820 LOCATE #3,8,7:PRINT#3,”[ 1 ] Daten 
files loeschen” 

7830 LOCATE #3,8,9:PRINT#3,”[ 2 I Inhal 
tsverzeichnis” 

7840 LOCATE #3,8,11:PRINT#3,”"[ 3 ] Alte 
Dateien loeschen” 

7850 LOCATE #3,15,12:PRINT#3,”(%.bak)” 
7868 LOCATE #3,8,14:PRIWNT#3,”l 4 ] Haup 
tmenue” 

7870 LOCATE #3,8,17:PRINT#3,”BITTE WAEHL 
EN SIE ” 

78808 ein$=INKEY$: IF ein$="" THEN 7888 
7898 IF eins$<(”1” OR ein$)”4” THEN 7888 
7988 ON VAL(ein$) GOTO 7920,8460,8138,26 


7918 GOTO 7888 

7920 REM DATENFILES LOESCHEN 

7930 GOSUB 428 

7948 PRINT :PRINT :PRINT :PRIWT :PRINT 

7950 CAT 

7968 PAPER#3,0 

7978 LOCATE#3,3,18:IMPUT#3,”Welche Datei 
soll geloescht werden ";Iname$ 

7988 LOCATE#3,3,20:PRINT#3,”"Ist der Date 
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’":Iname$;”’ richtig ?” 
ant$=INKEYS:IF ant$="" THEN 7998 
IF ant$="j” OR ant$="J"” THEN 8038 
IF ant$="n" OR ant$="N" THEN 7928 
GOTO 7998 
Iname$=Iname$+”.” 

/ERA,@lname$ 

GOTO 7718 

REM DISKETTENKATALOG: 

GOSUB 428 

PRINT :PRIWT :PRINT : PRINT: PRINT 

CAT 

ant$=INKEY$:IF ant$="" THEN 8188 
IF ant$=" ” THEM PAPER#3 ,08:60T0 771 


GOTO 8188 

REM DATEIEN LOESCHEN (%.BAX): 
PEN #3 ,1 

p-1:G0SUB 8288 
a$="%.bak”:/ERA,@a$ 
p-8:G0SUB 8208 

p=l 

GOTO 7888 

FOR ra=108 TO 588 
PLOT ra,117,p 

PLOT ra,167,p 

NEXT ra 

FOR ra=117 TO 167 
PLOT 188,ra,p 

PLOT 588,ra,p 

WEXT ra 

RETURN 


. Farben für die Bildschirmausgabe ändern 

. Verwalten einer Datei (Unterprogramm| ) 

. Datei einladen 

. Datei speichern 

. Datei drucken 

. Programm beenden 

. Speichermedium ändern 

. Diskettenmenü (Unterprogramm 2) 

Vom Menüpunkt 2 kommen Sie in das Unterprogramm 
für das Verwalten mit den Optionen: 

. Neue Datei erstellen 

. Datei einladen 

. Datei abspeichern 

. Datei ändern 

. Datei eingeben 

. Datei löschen 

. Datei ansehen 

. Hauptmenü 

Wählen Sie im Hauptmenü jedoch den Punkt 8, so 
kommen Sie in das Unterprogramm ?2 mit den Mög- 
lichkeiten: 

1. Datenfiles löschen 

2. Inhaltsverzeichnis der Diskette 

3. Alte Dateien löschen 

4. Hauptmenü 

Das Programm läuft auf allen CPCs und ist in reinem 
Basic geschrieben. So haben Sie selbst die Möglichkeit, 
eventuelle Änderungen leicht einzubauen und auch 
die Druckroutine gegebenenfalls anzupassen. (JE) 


ONSO\WnPRWD- 


OSONnN PRWD- 


TIPS & TRICKS 


Hisoft-Pascal 
erweitert! 


Über das heutige Pro- 
gramm mögen Sie viel- 
leicht geteilter Meinung 
sein. Der eine empfindet 
es wohl als eine mehr 
oder weniger nützliche 
Spielerei, der-andere 

wird die Erweiterung des 
Pascal-Sprachvorrates ge- 
nießen. Deshalb zuerst 
ein paar einleitende Wor- 
te um letzte Zweifler 

zu überzeugen. 

Wie in der vorigen Folge 
angekündigt, geht es 
darum, Linien mit einem 
frei definierbaren Punkt- 
muster zu erzeugen. Da 
dies nicht ganz so einfach 
ist, beschränken wir uns 
auf horizontale und ver- 
tikale Linien. Wozu aber 
soll das ganze gut sein? 
Würde es ein durchgezo- 
gener Strich nicht auch 
tun? 

Sicher — in den meisten 
Fällen reichen einfach 
PLOT- und DRAW-Befeh- 
le aus. Sobald es aber dar- 
um geht, Flächen kariert 
oder schraffiert darzustel- 
len, müssen Sie dafür eine 
eigene Prozedure schrei- 
ben. Mit der Erweiterung, 
die Ihnen heute vorge- 
stellt wird, entfällt diese 
Arbeit. Sicherlich ein 
wesentlicher Vorteil. 

Wie bei den Anwender- 
koordinatensystemen aus 
der letzten Folge sollen 
auch diesmal mehrere 
Muster vordefiniert wer- 
den können. Die Konstan- 
te ““maxpatterns“ legt 

die Höchstanzahl fest. 


DER DATENTYP 
“PATTERN“ 


Jedes Punktmuster soll 
aus acht Punkten beste- 
hen, die Sie jeweils als 
„gesetzt‘“ oder „nicht ge- 
setzt‘‘ definieren kön- 
nen. Dazu dient der neue 
Datentyp “pattern‘. Die 
Prozedur plot ist wieder 
einmal nötig, um Punkte 
zu zeichnen. Sie wird je- 
doch lediglich von anderen 
Prozeduren aufgerufen 
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und spielt für den Anwen- 
der keine Rolle. 
Interessant ist settpattern, 
die Prozedur, mit der Sie 
Punktmuster definieren 
können. Eine Variable vom 
Typ CHAR enthält das 
Muster, welches Sie vorher 
aus der 8-Punkt-Kombina- 
tion errechnet haben — 
genauso, wie Sie in 
BASIC das Aussehen 
neuer Zeichen bestim- 
men. Dieser Dezimalwert 
wird, um in einem 
ARRAY OF BOOLEAN. 
gespeichert werden zu 
können, in eine Binärzahl 
zurückverwandelt. Die 
Methode ist folgende: 
Für jede Zweierpotenz von 
128 bis 1 abwärts (das ist 
wichtig) wird überprüft, 
ob “pat‘‘ einen größeren 
oder denselben Wert be- 
sitzt. Ist dies der Fall, so 
wirdim ARRAYan 
der entsprechenden Posi- 
tion ein TRUE gesetzt 
und der Wert von pat um 
die betreffende Zweier- 
potenz verringert. Zur Ver- 
deutlichung hierzu ein 
Beispiel. Das Punktmu- 
ster 10000101 oder Dezi- 
mal 129 würde wie folgt 
untersucht: 
pat=133 > =128? 

ja — pa(x,8) :=TRUE; 


pat :=pat-128 

pat=5 > =64? 
nein — pa(x,7) := 

AL 

pat=5 > =32? 
nein — pa(x,6) : = 
FALSE 

pat=5 > =16? 
nein — pa(x,5) := 
FALSE 

pa >=8) 
nein — pa(x,4) := 
FALSE 

pat=5 > =42 
ja — pa(x,3) :TRUE; 
pat :=pat-4 

pat=] > =?2? 
nein — pa(x,2 := 
FALSE 

pat=] >=]? 


ja — pa(x,1) :=TRUE; 
pat=pat-1 


Die letzte Subtraktion 


188 
118 
128 
138 
140 
158 
168 
178 
188 
198 
288 
218 
2208 
238 
248 
258 
268 
2708 
288 
298 
388 
318 
328 
338 
348 
358 
368 
3708 
388 
398 
A408 
a18 
420 
438 
440 
458 
468 
478 
488 
498 
508 
5108 
528 
538 
548 
558 
568 
5708 
5808 
5908 
688 
618 
628 
638 
648 
658 
668 
678 
658 
698 
788 
718 

728 


EHRT IIHIII III IHRES ISIS SSH) 
® HISOFT PATTERNS Version 1.8 02/81/1987 *)} 


{*# by Alwin Ertl *} 
[FRERSRERREERERRERER HERRN HN HE RHRHHTRHIE HEN EREHN KRRERERUEHRRREHHTERRENRTE) 


PROGRAM patternline; 


CONST 
maxpatterns = 1B; 


TYPE 
pattern = PACKED ARRAY [1..8] OF boolean; 
patternarray = PACKED ARRAY [1..maxpatterns] OF pattern; 


VAR 
pa : patternarray; 
i : integer; {nur fuer Demol} 


PROCEDURE plot (x,y : integer); 


BEGIN 

rde := x; 

rhl := y; 

user (#bbea) {gra plot absolute} 
END; 


PROCEDURE setpattern (nr : integer; pat : char); 


VAR 
i : integer; 
pot : PACKED ARRAY [1..8] OF integer; 
BEGIN 
pot [1] := 1; 
pot [2] := 2; 
pot [3] := 4; 
pot [A] := B; 
pot 15] := 16; 
pot [6] := 32; 
pot [7] := 64; 
pot [8] := 128; 
FOR i := 8 DOWNTO 1 DO 
IF ord (pat) >= pot [il 
THEN 
BEGIN 
pa [nr,i] := true; 
pat := chr (ord(pat) - pot[i]) 
END 
ELSE 
pa [nr,i] := false 
END; 


PROCEDURE plineh (x,y,1l,nr : integer); 
VAR 
i, z : integer; 
BEGIN 
z := B; 
Y..2= x; 
WHILE i < x+1 DO 
BEGIN 
z := succ (z MOD B); 
IF pa [nr,z] 
THEN 
plot (i,y); 
i := succ (i) 
END 
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integer); 


das heißt, plot(0,0) und 
plot(0,1) zeichnen an der- 
selben Stelle einen Punkt.) 
Dabei läuft ein Zähler z 
mit, der nur von |] bis 8 
zählt. Wenn das entspre- 
chende Element des 
Arrays pa gleich TRUE ist, 
wird ein Punkt gesetzt, 
sonst geschieht nichts. 


KEINE HINTERGRUND- 
LÖSCHUNG 


Das Wörtchen ‚‚nichts‘“ 
dürfen Sie hier ruhig wört- 
lich nehmen -— es wird 
nämlich ein bereits vor- 
handener Hintergrund 
nicht gelöscht. Das müs- 
sen Sie unter Umständen 
selbst erledigen; anderer- 
seits besteht dafür auch 
selten Bedarf. Falls Sie 
den Trick mit dem modulo- 
Zähler noch nicht ken- 
nen sollten, sei dieser hier 
nochmals ausführlich be- 
schrieben: 

SUCC (z MOD n) erhöht 
z um |, sofern der Wert 
von n dadurch nicht 
überschritten wird. In die- 
sem Fall ist z wieder 
gleich 1. Man kann sich 
dies auch durch eine kur- 


ze Werttabelle für n=3 
verdeutlichen. Denken 
Sie daran, daß die Klam- 
mer zuerst berechnet 
wird! 


& RE u a ' 

738 END; 

748 

758 PROGEDURE plinev (x,y,‚,1l,nr : 
76B VAR 

7708 i, z : integer; 

788 BEGIN 

798 z := B; 

888 i ze y; 

818 WHILE i < y+1l DO 

828 BEGIN 

838 z := succ (z MOD BB); 
848 IF pa [nr,z] 

858 THEN 

868 plot (x,i); 

878 i := succ (succ(i)) 
888 END 

898 END; 

988 

918 BEGIN 

928 page; 

938 setpattern (1,chr(219)); 
948 setpattern (2,chr( 178)); 
958 setpattern (3,chr( 195)); 
968 setpattern (A,chr( 68)); 
978 setpattern (5,chr( 98)); 
988 FOR i := 8 TO 188 DO 
998 BEGIN 

189808 plineh (8,1,640,5); 
1818 i := succ (i) 

19828 END; 

1838 FOR i := 188 TO 138 DO 
1948 plinev (i,181,58,1); 
1858 FOR i := 288 TO 238 DO 
1868 plinev (i,181,64,2); 
1878 FOR i :=- 388 TO 338 DO 
1888 plinev (i,181,183,3); 
1898 FOR i := 4988 TO 438 DO 
1188 plinev (i,181,254,4) 
1118 END. 


spielt keine Rolle mehr, 
da die Schleife ohnehin 
durchlaufen ist. Mit die- 
sem einfachen Verfahren 
ist die Dezimalzahl 129 
korrekt in ds binäre 
Äquivalent 1000101 um- 
gewandelt worden. 


PARAMETER FÜR 
DIE PROZEDUREN 


Nachdem Sie auf diese 
Weise Punktmuster vorde- 
finiert haben, sollen na- 
türlich auch entsprechen- 
de Linien gezeichnet wer- 
den. Dazu dienen die bei- 
den Prozeduren plineh 
(soll heißen: pattern 

line horizontal) sowie 


plinev (und was das heißt, 
ist wohl nicht schwer zu 
erraten: pattern line ver- 
tikal). Als Parameter müs- 
sen jeweils vier Parameter 
angegeben werden, wel- 
che die Startposition und 
die Länge der Linie sowie 
die Nummer des zu ver- 
wendenden Musters dar- 
stellen. 

Die Methode, nach der ge- 
zeichnet wird, ist sehr ein- 
fach. In horizontaler Rich- 
tung wird der x-Wert um 
l, in vertikaler Richtung 
der y-Wert um 2 erhöht, 
bis die gewünschte Länge 
erreicht ist. (Sie erinnern 
sich doch noch? Von 400 
ansteuerbaren Bildpunkten 
werden nur 200 dargestellt, 


z MOD 3 


z 
1 
2 
3 
1 
2 
3 


SUCC 


Statt von | bis n würde 
hier von O bis n—] ge- 
zählt werden. Auch diese 
Anwendung des modulo- 
Zählers kann hie und da 
einmal gewünscht sein. 
Da wir in unserem Pro- 
gramm aufgrund der 
Struktur des Typs pat- 
tern jedoch von ] bis 8 
zählen, müssen, wenden 
wir die erstere Form an. 
Ein eindrucksvolles Bei- 
spiel für die Anwendung die- 
ser Grafiken zeigt das 
Demo-Programm. Auf der 
Hardcopy sehen Sie das 
Säulendiagramm, welches 
hier auf einfache Weise ge- 
fertigt wurde. Anstatt feste 
Werte für die Linienlängen 
einzusetzen, könnte man 
diese ebensogut einlesen. 
Womit einem Programm 
zur Erstellung von Dia- 
grammen nichts mehr im 
Wege stünde. 
Mit diesem Thema beschäf- 
tigt sich auch die nächste 
Folge. Da Sie eine Routi- 
ne zur Darstellung von Bal- 
kendiagrammen jetzt si- 
cherlich leicht entwerfen 
können, soll Ihnen dort 
eine Prozedur vorgestellt 
werden, die ein vollständi- 
ges Kreisdiagramm er- 
zeugt — sicherlich ein nütz- 
liches Werkzeug für viele 
Anwender. 

(Alwin Ertl) 


(z MOD 3) 


Würden wir die Klammern 
anders setzen, in der 
Form (SUCC z) MOD n, 


so ergäbe sich: 


SUCC (z) 


z 
1 
2 
0 
1 
2 
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SUCC (z) MOD 3 


Schon wieder eine Datei- 
verwaltung, wird mancher 
von Ihnen denken. 

Was kann da schon Neues 
drin stehen?Weit gefehlt, 
denn wer den Autor die- 
ses Buches (Lothar 
Miedel) kennt, weiß, daß 
er keine alltäglichen Bü- 
cher schreibt! Und auch 
bei diesem Buch beweist 
er es wieder: Der MC- 
Miedel kennt sich aus mit 
den CPCs von Schneider. 
Sein Buch (Schneider 
CPC: Dateiverwaltung) 
trägt den Untertitel 
„Eine Softwaresamm- 
lung“. Und damit hat er 
den Nagel auf den Kopf 
getroffen. Denn es wird 
kein fertiges Programm 
dem Leser serviert, das er 
schlucken muß, sondern 
es wird eine systema- 
tische Ein- und Hinfüh- 
rung in die Problematik 
eines solchen Programms 
geboten, die seinen Preis 
von DM 38,- für ein Ta- 
schenbuch mit 184 Seiten 
wert ist. 

Der Autor hat sich in 
diesem Buch vorgenom- 
men, eine Vielzahl von 
Anregungen und Tips zur 
besseren und effektive- 
ren Programmierung von 
Dateiverwaltungen aufzu- 
zeigen. Dem Leser wird 
gezeigt, wie er am besten 
vorzugehen hat und wel- 
che Gedanken er sich ma- 
chen muß, wenn er sich 
an solch ein Programm 
heranwagt und es selbst 
programmieren will. 

Die Beispielprogramme, 
die im Buch abgedruckt 
und sehr ausführlich be- 
schrieben sind, können 
zwar genommen werden 
und laufen dann auch tat- 
sächlich, aber viel wichti- 
ger ist es dem Autor zu 
zeigen, wie es geht. Eine 
Trickkiste also, und keine 
schlechte! 

Am Anfang geht es los 
mit einer ganz einfachen 
Adressendatei, wo die 
Daten nicht gesondert ein- 
gelesen werden, sondern 
im Programm in DATA- 
Zeilen abgelegt werden. 
Wie gesagt, ein ganz klei- 
nes Progrämmchen, aber 
für Anfänger durchaus 
lehrreich. Und dieses Pro- 
gramm wird dann stufen- 


SERVICE 


DATEIVERWALTUNG 


Miedel 
Schneider CPC: 
Dateiverwaltung 


weise immer weiter aus- 
gebaut, indem die Anfor- 
derungen an die Leistungs- 
fähigkeit erhöht werden. 
Bei diesen Erweiterungs- 
schritten wird nicht nur 
das Listing selbst gut er- 
klärt, sondern es werden 
auch die Überlegungen, 
die von der Idee bis zur 
Verwirklichung erforder- 
lich sind, ausführlich darge- 
legt. Also nicht nur das 
fertige Programm wird ab- 
gedruckt, sondern der Le- 
ser wird zum Mitdenken 
und Mitarbeiten aufge- 
fordert. 

Nach diesem Adressenpro- 
gramm folgt noch ein ein- 
faches Wörterbuch zum 
Abtippen. Doch danach 
geht es dann richtig los. 


DATEIVERWALTUNG 
MIT RAM-DISC AUF 
DEM CPC 


Zuerst wird ein Datei- 
verwaltungsprogramm 
beschrieben, das mit einer 
RAM-Disk arbeitet. Dies 
ist beim CPC nicht mög- 
lich?Lothar Miedel zeigt, 
wie es geht. Dazu stellt 

er einen Maskengenerator 
vor, mit dem Sie auf 


FÜR DEN CPC 


ganz komfortable Weise 
die Möglichkeit der Bild- 


‘schirmdarstellung in völ- 


lig individueller Weise 
haben. Die Feldüber- 
schriften können nämlich 
über den Bildschirm in 
völlig freier Weise pla- 
ziert und beschriftet wer- 
den. Nach dem Abspei- 
chern dieser Maske wer- 
den dann vom Hauptpro- 
gramm später nur die Da- 
ten für diese Maske ein- 
gelesen. Also sehr spei- 
cherplatzsparend und 
trotzdem komfortabel. 
Daß am Speicherplatz ge- 
spart werden muß, ist ja 
wohl jedem CPC-Besitzer 
klar, wenn eine RAM- 
Disk benutzt werden soll. 
Und wieder wird gezeigt, 
wie es geht. 

Dieses Programm ist in 
zwei Versionen im Buch 
abgedruckt. Eine für den 
464 und den 664, eine 
zweite für den 6128, wo 
auch die zweite Speicher- 
bank benutzt wird. Und 
zu beiden Programmen 
sind ausführliche Kom- 
mentierungen sowohl 
beim Basicteil als auch 
bei den zugehörigen Ma- 
schinenspracheteilen vor- 
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handen. Teile der Pro- 
gramme sind isoliert und 
können also bei Bedarf 
auch in eigenen Program- 
men weiterverwendet 
werden. 
Eines davon ist ein Lek- 
kerbissen für alle 6128- 
Besitzer. Ein Assembler- 
listing zur Bankumschal- 
tung, das das Bank- 
man-Programm aut der 
Systemdiskette überflüs- 
sig macht! 
Im letzten Drittel des Bu- 
ches wird ausführlich ein 
Dateiprogramm bespro- 
chen, das nicht mit der 
RAM-Disk arbeitet, son- 
dern eine Diskette benutzt 
und nur immer einen Da- 
tensatz in den Speicher 
holt. Es arbeitet also im 
direkten Diskettenzugriff, 
mit allen Vor-, aber auch 
mit allen Nachteilen die- 
ser Programmierungsart. 
Ausführlich wird beschrie- 
ben, wie solch ein Disket- 
tenzugriff am besten zu 
lösen ist, welche Tricks an- 
gewandt werden müssen 
und welche Lösungen mög- 
lich sind. Wieder sind bei- 
de Programme zweimal 
vorhanden, einmal als 
AMSDOS-Version und ein- 
mal in der Form für Vor- 
texlaufwerke. Eine wahre 
Fundgrube für alle, die 
mehr über die Arbeitswei- 
se eines Diskettenlauf- 
werks wissen möchten, 
zumal auch hier die 
Assemeblerlistings hervor- 
ragend und beispielhaft 
dokumentiert sind. Da 
kann jeder sich leicht in 
die Gedankengänge des 
Programmierers hinein- 
lesen und wertvolle Anre- 
gungen für eigene Program- 
mierungen erlernen. 
Wer die Programme aus 
dem Buch abgetippt hat, 
wird feststellen, daß die 
Listings in Ordnung 
sind und laufen. Dies ist 
ja nicht bei jedem Buch 
selbstverständlich! 
Wer sich eine eigene Datei- 
verwaltung aufbauen will, 
dem ist dieses Buch ans 
Herz zu legen. Selten fin- 
det man soviel geballte 
Informationen, die nütz- 
lich sind und so verständ- 
lich und klar dargestellt 
sind. 

Manfred Eibisch 


TEST 


verzeichnen. Der Daten- 
sicherheit tun diese Äußer- 
lichkeiten aber keinen Ab- 
bruch, so daß dieser Sach- 
verhalt eher dem ästheti- 


schen Bereich zuzuord- 
nen ist. 


DATENTRÄGER- 
MATERIAL VON SEHR 


zu Ba 
UNTERSCHIEDLICHER 
5 BESCHAFFENHEIT 


Schwerer wiegt da schon 


| =} m der Blick auf den eigent- 
ur | lichen Datenträger, der 
BEE ® sehr schnell offenbart, 


daß hier der letzte Schliff 
beim Polieren fehlt und 


Diese Frage mag sich schon mancher Anwender die Datenträger somit 
gestellt haben, wenn er vor dem verlockenden Ange- eher an aeiene 
bot stand, seine 3-Zoll-Disketten für etwa 60% des Den En Senohisg 
üblichen Marktpreises erwerben zu können. Wir sind Abrieb von der Disket- 
der Frage genauer nachgegangen und haben einmal 20 tenoberfläche sein. der 
Datenträger in 3-Zoll-Format zum Preis von auf die Dauer Lese- und 
je 4,99 DM eingekauft und sie einer eingehenden Schreibfehler verursacht. 
Musterprobe unterzogen. Der ‚Polierzustand‘‘ der 


einzelnen Disketten ist 
übrigens sehr unterschied- 
lich. Alle Bewertungen 
von „noch ausreichend“ 
bis „gut“ sind vertreten, 
so daß bereits an dieser 
Stelle klar wird, daß der 
Käufer keine Qualitäts- 
konstanz erwarten darf. 


MECHANISCHE UNZU- 
BE 2 LÄNGLICHKEITEN 
SCHNELL OFFENBART 


Ähnliche Unterschiede 
waren bei der mechani- 
= schen Prüfung zu verzeich- 
. nen. Mit einigen Disket- 
ten haben alle verwende- 
ten Laufwerke Schwierig- 
keiten, die Scheibenpas- 
sung direkt zu zentrieren. 
Deutliche Klickgeräusche 
treten daher immer dann 
auf, wenn der Laufwerks- 
motor nach dem Einle- 
gen zum ersten Mal auf 
die Diskette zugreift. Die- 
ser Fehler macht sich 

> _ s dann um so stärker be- 
Äußerlich unterscheiden Label und der Diskette ist merkbar, da das Lauf- 


sich die Disketten kaum man gerade ausreichend werk selbst an Justierfeh- 
von den Markenproduk- bedient. Viele der Marken- lern leidet. Im Klartext: 
ten mit Schneider oder disketten sind mittlerwei- Im Originallaufwerk des 
Maxell Aufdruck. Ledig- le allerdings auch nicht CPC 6128 funktionierten 
lich die Sicherungshebel besser ausgestattet. Leich- 15 von 20 Disketten ohne 
sind aus weißem statt aus te Kratzer oder kleine mechanische Beanstandun- 
rotem Plastik. Der Liefer-- Kerben, die sichtlich aus gen. Lediglich 5 Disket- 
umfang ist, wie erwartet, dem Herstellungsprozeß ten vermeldeten den be- 
sehr spartanisch. Mit ei- stammen (Maschinenfeh- schriebenen Einstands- 
ner einfachen Plastikhül- ler) sind auf allen einge- klick. Im Hitachi 3-Zoll- 
le, einem lose beiliegenden kauften Billigdisketten zu Zweitlaufwerk ergab sich 
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ein völlig anderes Bild. 
Hier war das Verhältnis 
eher umgekehrt. Bei den 
am schlechtesten zu be- 
wertenden Disketten tra- 
ten zudem unangenehme 
Zwitscher- und Pfeifge- 
räusche auf, die keines- 
falls mehr zu tolerieren 
sind. Markendisketten 
funktionieren im Hitachi- 
Laufwerk hingegen abso- 
lut problemlos. Wir ha- 
ben zur Kontrolle etwa 
30 Exemplare verschiede- 
ner. Hersteller ausprobiert. 
Der Fehler ist demzufol- 
ge eindeutig den Billigdis- 
ketten anzulasten. 
Erwartet hatten wir bei 
unserer Prüfung eigent- 
lich, daß einige No-Name- 
Disketten Mängel bei der 
Leichtgängigkeit der Ver- 
schlußmechanik aufwei- 
sen würden. Hier gab es 
eine angenehme Über- 
raschung. Ausreißer 
waren nicht vorhanden. 


DATENSICHERHEIT 
MEIST ZUFRIEDEN- 
STELLEND BEIM 
CPC-LAUFWERK 


In der Datensicherheits- 


prüfung schnitten die 
Billigdisketten nicht un- 
bedingt so schlecht ab. 
Sicher gab es auch hier 
einige Ausreißer, die sich 
mit den mechanisch feh- 
lerhaften z.T. deckten. 
Alle absoluten Problem- 
fälle ließen sich zwar 
nach erneutem Formatie- 
ren wieder verwenden, 
bei eventuellem Daten- 
verlust ist dies aber kaum 
ein Trost. Die Laufwerks- 
zentrierung hatte auf die 
Datensicherheit in Ana- 
logie zur mechanischen 
Problematik einen ent- 
scheidenden Einfluß. Auf 
dem Originallaufwerk wa- 
ren 18 von 20 Disketten 
auch über einen längeren 
Zeitraum trotz zahlreicher 
Diskettenmanipulationen 
ohne Beanstandungen. 
Bei dem 2. Vertreter, dem 
Hitachi-Laufwerk, waren 
es vier mehr. Diese 30%ige 
Fehlerquote ist kaum 
noch zu tolerieren, muß 
aber doch zum größeren 
Teil dem verwendeten 
Hitachi-Laufwerk zuge- 
schrieben werden. 
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Um nun die Eingangsfrage 
kurz und prägnant 

zu beantworten, bedarf 
es einer differenzierten 
Überlegung. Allen An- 
wendern, die ihre Daten- 
sicherheit an erster Stelle 
sehen, muß von der um- 
fangreichen Verwendung 
der Billigdisketten abge- 
raten werden, besonders 
dann, wenn Laufwerke 
verschiedener Hersteller 
verwendet werden, die 
nicht zu 100% justiert 
sind. Ein möglicher Da- 
tenverlust, die z.T. unan- 
genehmen mechanischen 
Geräusche und der mög- 
liche höhere Disketten- 


abrieb wiegen den gerin- 


NUR BEDINGT ZU 
EMPFEHLEN FÜR 


BACKUPS UND SPIELE 


geren Kaufpreis sicher 
nicht auf. 

Wer allerdings ausschließ- 
lich ein billiges Backup 
Medium sucht, um dar- 
auf Spiele oder die zwei- 
te oder dritte Sicherheits- 
kopie abzulegen, sollte 
ruhig eine Reihe dieser 
No-Name-Produkte kau- 
fen. Wem die Datensi- 
cherheit (z.B. bei Spielen 
o.ä.) schließlich zweitran- 
gig erscheint (sie ist bei 
den Billigdisketten immer 
noch viel höher als z.B. 
bei Kassetten); der sollte 
ruhig zugreifen, wenn er 
ein derart kostengünstiges 
Angebot findet. Mit den 
beschriebenen mechani- 
schen Fehler kann man le- 
ben, zumal sie nur bei 
der Minderzahl der Dis- 
ketten auftreten. Jeden- 
falls sollte man mit dem 
Händler einen eventuel- 
len Umtausch von fehler- 
haften Datenträgern ver- 
einbaren (auch dann, 
wenn er gesetzlich dazu 
verpflichtet ist), damit 
man nicht per Zufall auf 
einer Reihe schwarzer 
Schafe sitzen bleibt. Ein 
solches Umtauschrecht 
kann bereits ein Indiz 
dafür sein, wie der Händ- 
ler selbst die Qualität der 
Disketten einschätzt. 

Bei Wandlungsausschluß 
(kein Umtausch) kann, 
man allerdings nur raten: 
„Hände weg!“ 


KOPIERPROGRAMM KANN NICHT NUR LESEN! 


Wir erleben bei unserer Hotline sehr oft interessante 
und manchmal auch amüsante Telefongespräche. 
Ab und zu erreichen uns auch verzweifelte Hilferufe, 
bei denen wir manchmal auch nur geringe Chancen 
sehen, weiterhelfen zu können. Um so mehr freut es 
uns aber, wenn wir es dann doch noch schaffen 
und dem Leser aus der Klemme helfen können. So er- 
reichte uns vor wenigen Wochen wieder einmal ein 
Anruf, bei dem wir im ersten Moment auch passen 
mußten. Bei einer Leserin war eine Diskette mit 
Texten für eine Magisterarbeit nicht mehr lesbar! 
Telefonisch war eine direkte Hilfe nicht möglich. Aber 
wir konnten eine Adresse mitteilen, die das Problem 
lösen konnte. Von dort bekamen wir die Mitteilung, 
daß die Texte wieder gerettet worden waren und 
auch den Hinweis, auf welche Art und Weise. Da 
dieser Hinweis allgemein interessant ist, soll er Ihnen 
nicht vorenthalten werden. 


Sicher ist Ihnen bekannt, 
daß bei einer Diskette 
die Datenaufzeichnung 
magnetisch geschieht. 
Aber nicht nur die reinen 
Daten werden darauf ab- 
gespeichert, nein, auch 
zusätzliche Informatio- 
nen müssen aufgebracht 
werden. 

Durch widrige Umstände 
kann es vorkommen, daß 
auf einer Diskette nun ge- 
rade bei diesen Zusatzin- 
formationen Fehler ge- 
schrieben werden, oder 
beispielsweise die Daten 
nicht stark genug ‚‚auf- 
magnetisiert‘‘ werden. 
Woran dies im einzelnen 
liegen kann, soll nun 
nicht Gegenstand der 
Betrachtungen sein, denn 
dies würde zu weit füh- 
ren. Es muß hier der Hin- 
weis reichen, daß Fehler 
auf einer Diskette auf- 
treten können, die mit 
den eigentlichen Daten 
nichts zu tun haben. 

Das Ergebnis: Die Dis- 
kette wird nicht mehr 
korrekt gelesen! Das 
kann bedeuten, daß sie 
vom Betriebssystem 
abgelehnt wird. Obwohl 
alle Daten also noch vor- 
handen sind, kann bei- 
spielsweise ein Textver- 
arbeitungsprogramm 
nicht mehr zugreifen. Hier 
hilft in vielen Fällen 
schon, eine Kopie der 
„schadhaften‘ Diskette 
zu ziehen. Manche Daten- 
files konnten mit dieser 
Methode schon gerettet 
werden. Auch wir hatten 
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diesen Tip gegeben. Lei- 
der aber war Disckit 3, 
das beim CPC6128 mitge- 
lieferte Kopierprogramm, 
nicht in der Lage, eine 
Doublette der nicht mehr 
lesbaren Diskette anzu- 
legen. 

Unsere Leserin wandte 
sich deshalb an die von 
uns angegebene Adresse 
und übersandte die nicht 
mehr lesbare Diskette. 
Die Rettungsarbeit 

war, wie wir erfuhren, 
nicht schwierig. 

Um das Original für evtl. 
weitere Arbeiten zu erhal- 
ten, wurde nicht versucht 
die Originaldiskette zu 
bearbeiten, sondern erst 
einmal eine Kopie anzu- 
fertigen, selbst wenn es 
nur teilweise gelingen soll- 
te. Wie schon vermerkt, 
war Disckit3 nicht mehr 
in der Lage, die schadhafte 
Diskette zu kopieren, des- 
halb wurde gleich ein stär- 
keres ‚Geschütz‘ aufge- 
fahren. SuperCopy, ein 
Programm, um auch ge- 
schützte Programmdisket- 
ten zu duplizieren, mußte 
zeigen, was es zu leisten 
imstande ist. Und siehe da, 
dieses Programm leistete 
mustergültige Arbeit. Es 
war keinerlei Nacharbeit 
durch direkte Disketten- 
zugriffe erforderlich, son- 
dern die Kopie arbeitete 
sofort einwandfrei! 

Sie sehen, ein Kopierpro- . 
gramm, um Duplikate von 
geschützten Disketten an- 
zulegen, kann mehr als 
nur dieses. (LM) 
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stammt zwar aus dem Hause Schnei- 
MULTIFACE II der, aber ein kleiner Aufkleber auf 
der Verpackung erspart einige 


- Lauferei. 
Leg & n 2 I e 5 h re Auch die Kurzbeschreibung ist ja 


mit ihren zweieinhalb Seiten DIN- 
> ad oO C h AS sehr knapp gehalten, eine 
rOog ra mme „echte‘‘ Kurzbeschreibung! 
= m Po Manche Befehle, die einem da ange- 
ıns | j ef Kü hi fac h boten werden, sind in der Beschrei- 
bung so kurz davon gekommen, daß 


ein „Nichtprofi‘‘ schier verzweifeln 


Wer kennt das Problem mit den Sicherheitskopien von professionellen muß. In einem Fall heißt es da: 
Programmen nicht? Da kauft man ein solches Produkt und will selbstver-- Der Befehl ermöglicht einen _ 
ständlich eine Kopie haben, für den Fall, daß mit der Originalsoftware Sprung zu einer Adresse im Speicher, 
irgend etwas passiert, sei es, daß die Diskette/Kassette herunterfällt vorausgesetzt, Sie haben die Parame- 
und mechanischen Schaden erleidet oder man den Datenträger, trotz aller ter richtig eingestellt.‘“ Aber nir- 
Vorsicht, doch mal einem Magnetfeld aussetzt. gends ein Hinweis, welche Parameter 


wie einzustellen sind. Ein bißchen 


In einem solchen Fall hat man nur nur mit dem gleichen Modul aufge- mehr Ausführlichkeit wäre hier sicher 
selten die Chance, die Originalsoft- taut und benutzt werden kann, kann Angebracht. 


ware umgetauscht zu bekommen. der ehrliche Anwender auf das An dieser Stelle sei erwähnt, daß es 
Der Händler hebt abweisend die schlechte Gewissen verzichten. Wir sich um das Angebot eines Impor- 
Hände und sagt nur: „Wenn Sie mit haben bereits einmal den Mirage teurs handelte, der seine eigene An- 
Ihrem neuen Auto an einen Baum Imager vorgestellt (Heft 6/87) und Weisung dazu drucken ließ. Es soll 
gefahren sind, bekommen Sie ja wollen natürlich nicht auf die Be- auch ausführlichere und vielleicht 
auch keinen Ersatz.“ Einzelne Soft- sprechung des Nachfolgers — Multi- Auch bessere Bedienungsanleitungen 
warehersteller leisten zwarin Ein- face II — verzichten, selbst wenn geben, aber sie lagen uns nicht vor. 


zelfällen schon mal Ersatz, aber es dies kein neues Produkt ist. Kaufen Schneider aktiv will jedoch im Inter- 
besteht darauf kein rechtlicher An- Sie sich die Hardware-Erweiterung esse der Leser nur solche Produkte 
spruch. Wie dem auch sei, auf jeden „Multiface II“ und Sie können sich testen,die wirklich vorhanden sind. 
a Br Sie Ärger und kommen Ihre so heiß gewünschten Sicherheits- WICHTIG: COMPUTER BEI DER 
sich als Bittsteller vor. kopien anfertigen, soviel verspricht : 

zumindest die Werbung. Wir haben INSTALLATION AUSSCHALTEN! 
für Sie dieses Gerät getestet und : : er 
wollen Ihnen die Vor- und Nachteile Beim Anstecken des „Multiface II 


sowie die Einsatzmöglichkeiten auf- Müssen Sie unbedingt den CPC 
zeigen. komplett ausschalten, sonst besteht 


die Gefahr der Beschädigung. Ha- 
_——————— 7 ben Sie einen 464, so können Sie 
MAGERLIEFERUNG MIT an der Rückseite des Gerätes Ihre 
SCHWACHEM HANDBUCH Floppy einstecken. Die Verbindung 
— paföt ausgezeichnet und sorgt für 

festen Halt, was bei den herausge- 
Vielleicht sind Sie enttäuscht, wenn führten Platinen des CPC ungemein 
Sie die Verpackung öffnen, und nur wichtig ist. Beim 664/6128 hängt 
einen kleinen schwarzen Kasten se- der feste Sitz von der Qualität des 
hen. Lediglich zwei Tasten, eine Adapters ab. 

nn blaue und eine rote, fallen überhaupt Schalten Sie nun den Computer wie- 

Es gibt Kopierprogramme, die einem auf, wobei das blaue Stück auch den der an, werden Sie feststellen, daß 


da aus der Patsche helfen können einzigen äußerlichen Unterschied das Multiface keinerlei Einschalt- 
und in der Lage sind, viele der Profi-r zum Mirage Imager ausmacht (ne- meldung von sich gibt, es besteht je- 
Programme zu kopieren. Aber da ben der Beschriftung). Das Gerät hat doch kein Grund zur Sorge. 

sich die Softwarehersteller immer zwei Anschlußmöglichkeiten. An m 
wieder einen neuen Kopierschutz der Vorderseite ein kurzes Stück ES KOPIERT TATSÄCHLICH! 
einfallen lassen, nutzt solch ein Uti- Kabel mit einem Stecker, hinten e- ——————— 
lity dem User auch nicht allzulange. ne Steckerleiste zur Weiterverbin- Da hilft nur ein Versuch. Also, ein 
Wobei noch die Schizophrenie er- dung mit der Floppy. Das Kabel kopiergeschütztes Programm einge- 
wähnt werden muß, das die Benut- kommt in den CPC und los geht es. legt und gestartet. Wir haben es mit 
zung solcher Kopierprogramme Dachten wir zumindest, bis sich her- ‚Hybrid‘ und „Shadow Skimmer“ 
rechtswidrig ist, der Kauf dagegen ausstellte, daß die Verbindung nur versucht. Beide Spielprogramme wi- 
legal. mit dem CPC 464 klappt. Für den dersetzen sich einigen Kopier-Utili- 
Es gibt allerdings noch eine andere 664 und den 6128 wird ein Adapter ties (nicht allen), so daß anzuneh- 
Möglichkeit, die uns immer schon notwendig, damit sich das Gerät an- men ist, daß sich hier zuerst die 

sehr gut gefallen hat, das ‚‚freezen“. schließen läßt. Schwierigkeiten zeigen würden. 
Dabei handelt es sich um ein Mo- Übrigens, in der Kurzbeschreibung, Nachdem das Programm komplett 
dul, mit dem der komplette Spei- die der Packung beilag, war keinerlei im Speicher war, drückten wir die 
cher des CPC ‚eingefroren‘ werden Hinweis auf diesen erforderlichen rote „Stop“-Taste. Das Spiel blieb 
kann. Einschließlich des Spieles. Zwischenstecker zu finden. Ob dies tatsächlich stehen und am unteren 
Da diese Tiefkühlkost in der Regel zuviel verlangt ist? Das Problem Bildschirmrand erschien ein kleines 
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TEST 


Menü mit folgenden Optionen: 
Return, Save, Tool und Jump. 

Mit der Return-Option können Sie 
das „eingefrorene‘‘ Programm wei- 
terlaufen lassen, falls Sie es sich aus 
irgendwelchen Gründen anders über- 
legen. Nach dem Drücken der 
“S“_Taste (Save) werden Sie dann 
aufgefordert, einen Filenamen ein- 
zugeben. Wundern Sie sich aller- 
dings nicht, daß hierzu maximal 

7 Zeichen zugelassen sind, obwohl 
der Disketten-Controller 8 Buch- 
staben erlaubt. Den Grund hierzu 
lesen Sie später. 


DER BILDSCHIRM WIRD 
ZERSTÖRT 


Nach der Eingabe des Namens er- 
scheint ein weiteres Menü, in dem 
nun die Möglichkeit besteht, entwe- 
der das gesamte Programm zu si- 
chern oder nur das jeweilige Bild, 
das sich vor dem Stop auf dem Bild- 
schirm befand. Dem Erstbenutzer 
steht hier ein kleiner Schreck bevor. 
Nach dem Aufruf des ‚‚Interface II“ 
ist die Grafik auf dem Bildschirm 
total zerstört. Trotzdem, es wird 
korrekt abgespeichert. Daß der Bild- 
schirmaufbau zerstört wird, liegt 
wohl an der Arbeitsweise des Inter- 
face. Mit der Option der Grafik- 
Sicherung erfüllt das Multiface Il 
aber ohnehin nur eine Nebenauf- 
gabe. Wichtiger ist ja eine lauffähige 
Kopie des Spieles. 

An der Arbeitsweise des Moduls 
ändert sich dabei wenig. 

Auch wenn es um das komplette 
Programm geht, wird die Bildschirm- 
darstellung beim Abspeichern un- 
kenntlich. 

Ein ganz wichtiger Punkt bei der 
Sicherung ist die Auswahl des Spei- 
chermediums. Auch wenn das Dis- 
kettenlaufwerk angeschlossen ist. 
besteht beim Multiface II die Mög- 
lichkeit, die Daten auf Kassette zu 
leiten. Hierbei wahlweise mit zwei 
Geschwindigkeiten, entweder 1000 
oder 2000 Baud. Gerade die Be- 
sitzer eines CPC 464 ziehen es vor, 
zur Sicherung auf die etwas preis- 
werteren Kassetten auszuweichen. 
Wir wählten die Diskette aus und 
schon lief das Laufwerk an. Nach 
Beendigung des Speichervorgan- 
ges drückten wir dann die blaue 
Taste am Interface und es erfolgte 
ein totaler Reset. 

An dieser Stelle sollte man sich ein- 
mal das Directory anschauen. Es 
werden immer mehrere Dateien 
abgespeichert. Und zwar ein Binär- 
file von 1 KByte mit unseren aus- 
gewählten Filenamen und ein paar 
andere, die hinter unserem File- 
namen noch eine einstellige Zahl 


als Zusatz hatten. Daher also durf- 
ten nur 7 Buchstaben für die File- 
bezeichnung eingegeben werden! 
Für den Neustart steht im Multi- 
face II ein entsprechender Menü- 
punkt zur Verfügung. Das Pro- 
gramm wird mit dem ursprüngli- 
chen 7stelligen Namen aufgerufen 
und läuft dann genau an der Stelle 
weiter, an der es eingefroren wur- 
de. Wenn es sein muß, also mitten 
im Spiel. 


EIN KOMPLETTER SPEICHER- 
AUSZUG WIRD ANGEFERTIGT 


Das ‚‚Interface II“ macht also an 
dem Punkt, an dem Sie die ‘““Stop“- 
Taste drücken, einen kompletten 
Speicherauszug und speichert damit 
alles ab, was Sie zu dem Zeitpunkt 
im Speicher haben. So problemlos 
wie es sich anhört. stellt sich natür- 
lich die Frage nach der Legalität ei- 
nes solchen ‚‚Freezers“. Technisch 
ist es jedoch kein großes Problem, 
die Software so abzuspeichern, dafs 
sie nur mit dem richtigen, individuel- 
len CPC und dem dazugehörigen 
Multiface-Modul arbeitet. Aus die- 
sem Grund machten wir einige Ver- 
suche. 

Zuerst entfernten wir das Gerät und 
starteten dann die Kopie. Wie naiv 
dieses Unterfangen ist, zeigte der 
totale Absturz des Computers. 

Dann nahmen wir das Interface und 
befestigten es an einem CPC 464 
(vorher war esam 6128) und starte- 
ten erneut die Kopie. Es ist ja denk- 
bar, daß der „Hacker-Kollege‘“ eben- 
falls ein Multiface benutzt. Das Er- 
gebnis darf jene jedoch abschrecken, 
es kam wieder zu einem Absturz! 


EINSCHRÄNKUNGEN BEI 
NACHLADE-PROGRAMMEN 


„Interface II“ arbeitete also in die- 
sem Punkt einwandfrei. Allerdings, 
und jetzt kommt doch eine erheb- 
liche Einschränkung, kann es ‚‚nur“ 
den jeweils aktuellen Speicherinhalt 
sichern. Es funktioniert und kann 
auch nicht funktionieren bei solchen 
Programmen, die nachladen, also 
zum Beispiel bei umfangreichen Ad- 
venture-Spielen, die jeden Screen 
nachladen. Auch bei „Socery Plus“ 
kann man es nicht verwenden. Wenn 
allerdings bei einem Programm erst 
das Titelbild aufgebaut wird und 


. dann das eigentliche Programm in 


„einem Stück“ nachgeladen wird, 
so haben Sie zwei Möglichkeiten. 
Entweder Sie verzichten auf das 
Titelbild und rufen ‚‚Interface II“ 
erst dann auf, wenn das eigentliche 
Programm im Speicher ist, haben al- 
so als Sicherheitskopie nur das 
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Hauptprogramm oder Sie drücken 

die ““Stop‘-Taste unmittelbar nach 

dem Erscheinen des Titelbildes, spei- 

chern dieses mit der Option „Bild- 

schirm‘“ ab und später das Pro- 

gramm gesondert. 

Dann tippen Sie folgendes kleine Pro- 

gramm ein: 

10 mode x 

20 memory 16383:load‘““ Bild“: call 
32768 


30 run“ Hauptprogramm“ 


FINDEN SIE DEN RICHTIGEN 
ZEITPUNKT! 


Das funktioniert recht gut, die ein- 
zige Schwierigkeit ist, genau den 
richtigen Zeitpunkt zum Drücken der 
Stopptaste zu erwischen. Aber nach 
ein paar Versuchen sollte es Ihnen 
gelingen. Bei uns klappte das gleich 
auf Anhieb! Aber wie schon gesagt, 
das geht nur bei einem Titelbild und 
bei einem Hauptprogramm in einem 
„Block“. Wenn das Hauptprogramm 
nachlädt, kann das Gerät nicht ein- 
gesetzt werden! 

Aufserdem sind noch einige andere 
Optionen aufrufbar, mit denen Sie 
im Speicher peeken und poken kön- 
nen. Vielleicht ist dies für jene inter- 
essant, die ihr Spiel mit mehreren 
Leben ausstatten wollen, aber das 
Wichtigste ist ja wohl doch das kor- 
rekte Abspeichern und einwandfreie 
Starten der Kopien. Wir haben dann 
den gleichen Test auch im Kassetten- 
betrieb gemacht, es funktioniert alles 
einwandfrei. 

Allerdings noch eine Einschränkung: 
Mit dem Vortexlaufwerk und/oder 
der Speicherkarte wollte es über- 
haupt nicht zusammenarbeiten. Bei 
aller Mühe, die wir uns machten, 
klappte es in mehreren Versuchen 
nicht. Also, wenn Sie „Multiface II“ 
anwenden wollen, mufs erst die Vor- 
tex-Station entfernt werden. 


FAZIT: ENDLICH EINE 
LEGALE SICHERHEITSKOPIE 


Multiface II bedeutet endlich eine 
Möglichkeit zur legalen Anfertigung 
von Sicherheitskopien. Daf3 man da- 
für nur ein Original kurz ausleiht, 
kopiert und wieder zurückgibt, 
bleibt nach wie vor strafbar. Für den 
ehrlichen User bleibt das Modul je- 
doch die bislang einzige Wahl, wenn 
er sich seiner — oft nicht unbeträcht- 
lichen — Spielesammlung sicher sein 
will. Der Minuspunkt, daß Program- 
me die Teile nachladen, nicht kopiert 
werden können, muß dabei ertragen 
werden. Da der Anteil derartiger 
Software wächst, gerät Multiface II 
zu einem Rechenexempel, welches 
jeder selbst durchführen muß. 


br — as ae ee 


SERVICE 


Das war 
1987 ! 


Auf Wunsch vieler Leser bringen wir zum Jahresab- 
schluß ein komplettes Inhaltsverzeichnis. Bitte 
akzeptieren Sie, daß nicht alle Beiträge aufgenom- 
men werden konnten. Sie finden an dieser Stelle nur 
die wichtigsten Themen aus den Bereichen Hard- und 
Software, sowie sämtliche Listings. Beachten Sie 
auch, daß ein ‚S’’ vor der Ausgabe der Hinweis auf 
eines unserer Specials ist. 


LISTINGS 

ANWENDERPROGRAMME: 

Adress- & Telefonverzeichnis S 2/87 Seite 24 
Anorganik 9/87 Seite 64 
Ahnentafel S 4/87 Seite 64 
Auto-Tuning S 3/87 Seite 92 
Bafög 1/87 Seite 61 
Biomaster 8/87 Seite 39 
Budget-Manager 3/87 Seite 26 
Briefbögen selbst gestalten S 1/87 Seite 97 
Briefmarken-Katalog S 1/87 Seite 43 
Benzinkosten 10/87 Seite 66 
Charedit 10/87 Seite 81 
Chemie 8/87 Seite 67 
Chemo-Cad S 1/87 Seite 34 
CPC-DATA S 1/87 Seite 66 
Call S 1/87 Seite 105 
Dragrace S 1/87 Seite 128 
Discheader S 1/87 Seite 57 
Distanz S 1/87 Seite 92 
Datei-Info S 3/87 Seite 88 
Diaverwaltung 12/87 Seite 55 
Directory-Manager S 3/87 Seite 102 
Dynamikus S 4/87 Seite 76 
Diagramm 6/87 Seite 52 
Diskettenbibliothek 9/87 Seite 69 
Designer S 2/87 Seite 76 
Easy Write 2/87 Seite 34 
Elektro S 1/87 Seite 10 
Erdkunde S 3/87 Seite 80 
Erdentwicklung S 4/87 Seite 44 
Folio 3/87 Seite 47 
Finanzgenie S 3/87 Seite 36 
Faktura S 1/87 Seite 58 
Flächen S 1/87 Seite 89 
Funktionstasten-Belegung S 1/87 Seite 99 
Geo-Distanz S 3/87 Seite 126 
Giro 3/87 Seite 37 
GPaint 10/87 Seite 30 
Haushaltsbuchführung Ss 2/87 Seite 65 
Hypothekentilgung 9/87 Seite 61 
Hello S 1/87 Seite 100 
Kalender 6/87 Seite 71 
Kalorientabelle S 2/87 Seite 36 
Kassetten-Lister 7/87 Seite 42 
Karteikasten S 4/87 Seite 114 
Kleiner Basic Helfer S 1/87 Seite 84 
Kaufmännische Kalkulation S 1/87 Seite 50 
KFZ-Kostenverwaltung S 1/87 Seite 25 
Kassenbuch S 3/87 Seite 96 
Kreditvergleich 2/87 Seite 61 
Kopfrechnen S 4/87 Seite 51 
Kalender S 4/87 Seite 133 
Latein-Vokabeltrainer S 2/87 Seite 53 
Lohnabrechnung 1/87 Seite 30 


Lohnabrechnung 
Lohnsteuerabrechnung 
Lottoziehung 
Lottoziehung für PC 1512 
Mathepack 
Multi-Degression 
Musik 

Mädchen-Tester 
Morsen mit dem CPC 
Notenverwaltung 
Param 

Parabel 
Programm-Manager 
Physik & Mathematik 
Promille-Tester 
Punktezähler 
Raumplan 
Reaktionstest 
Rallye-Auswertung 
Sound Master 

Stern 

Statistik 

Sieben neue Grafik-RSX-Befehle 
Superuhr 

Scheinbasic 
Sportauswertung 
Terminkalender 
Tabelle 2000 

Trimm dich fit 
Termin-Taschenrechner-Kalender 
Tiffany Cad 
Überweisungen 
Universaldatei 
Vokabeltrainer 
Wiederstandscode 
Weinzubereitung 
Zahlendarstellung 
Zeitplan 

Zeichen Editor 


UTILITIES: 


3D-Schrift 

Altdeutsche Schrift 
Alternativer Grafik-Editor 
Backup 2.4 

Bigtext 

Circle 

Comdos 

Copy 

Druckerspooler 
Druckerabfrage 

Dimmer Demoprogramm 
Disc-Monitor 

Fill für CPC 464 
Funktionsplotter 
Großschrift 
Hex-Bin-Wandler 

Header 

Kyrillische Schrift 
Laufschrift 

Laufschrift auf dem CPC 
Neue Ready Meldung 
Output 

Printer Matter (Drucker Utilities) 
Programmlister 
Quick-Copy 
RSX-Befehle 

RSX Rotate 

Scroll 

Struktur 

Superhardcopy 
Symbol-Generator 
Tape-Time 

Toolkit 

Transfer 

Turbotape 
Überweisungen ausfüllen 
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Seite 123 
Seite 44 
Seite 46 
Seite 49 
Seite 49 
Seite 126 
Seite 56 
Seite 93 
Seite 95 
Seite 70 
Seite 77 
Seite 122 
Seite 15 
Seite 51 
Seite 65 
Seite 32 
Seite 53 
Seite 111 
Seite 126 
Seite 32 
Seite 24 
Seite 112 
Seite 20 
Seite 29 
Seite 83 
Seite 35 
Seite 46 
Seite 107 
Seite 133 
Seite 24 
Seite 52 
Seite 39 
Seite 76 
Seite 52 
Seite 53 
Seite 101 
Seite 116 
Seite 44 
Seite 19 


Seite 52 
Seite 110 
Seite 109 
Seite 59 
Seite 78 
Seite 42 
Seite 131 
Seite 43 
Seite 86 
Seite 107 
Seite 122 
Seite 53 
Seite 15 
Seite 38 
Seite 40 
Seite 44 
Seite 28 
Seite 62 
Seite 101 
Seite 26 
Seite 59 
Seite 77 
Seite 39 
Seite 57 
Seite 41 


USA-Flagge 
Zeicheneditor 


SPIELE: 


Breaker 

Boro 

Coin Spielautomat 
Cricks 

Das schwarze Auge 
Egghead 

Europa 

Finish 

Fünf in einer Reihe 
Future-Attack 
Garfunkel 
Grenze 
Galgenmann 
H.E.R.O. 

Hugo 

James Bond 
Kartago 
Kreuzworträtsel 
Madball 
Monopoly 
Mensch Ärgere Dich nicht 
Merxdir 
Mountain Battle 
Onedin 
Ostfriesenrechner 
Puzzle I 

Puzzle II 
Poltergeist 
Scarbury Castle 
Schatzinsel 

Senso 

Shhotout 
Springer 

Springer PC 1512 
Superhirn 

Türme von Hanoi 
U-Boot 

Vampire 

Vier gewinnt 
Wallrunner 
Wörterschieben 


TIPS UND TRICKS: 


Amstrad übervorsichtig 

Bild abspeichern, aber wie? 
Pausenfunktion — Mehrfarbiges Zeichen 
Poke Korrektur zur Listschutzroutine 
Softbox-Wissen 

Steuerzeichen, warum denn? 

Timer und Typerkennung 
Wissenswertes rund um die CPC-Modelle 


SOFTWARE TEST/SPIELE: 


Academy 

Ace of Aces 

Aliens 

Arkanoid 

Asphalt 

Ballbreaker 

Balloon 

Barbarian 

Big Trouble in little China 
Bridge of Frankenstein 
Breakthru 

Brian Clough’s Fußball Manager 
Challenge of the Gobots 
Cholo 

Commando 

Cyrus 

Die Formel 

Dogfight 2187 

Donkey Kong 

Enduro Racer 


3/87 
4/87 


oo 


8/87 
4/87 
4/87 
2/87 
4/87 
2/87 
4/87 
4/87 
9/87 
S 3/87 
S 2/87 
S 3/87 
7/87 
S 4/87 
3/87 
9/87 
S 3/87 
S 4/87 
11/87 
3/87 
S 2/87 
S 3/87 
4/87 
S 1/87 
S 3/87 
9/87 
12/87 
Ss 2/87 
Ss 2/87 
7/87 
S 2/87 
7/87 
6/87 
11/87 
S 4/87 
6/87 
7/87 
9/87 
S 3/87 
3/87 
S 2/87 
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3/87 
3/87 
3/87 
7/87 
3/87 
3/87 
12/87 
2/87 


9/87 
7/87 
3/87 
6/87 
12/87 
7/87 
12/87 
9/87 
6/87 
8/87 
S 2/87 
12/87 
9/87 
11/87 
2/87 
5/87 
8/87 
8/87 
9/87 
9/87 


SERVICE 


Seite 42 
Seite 20 


Seite 44 
Seite 125 
Seite 88 
Seite 10 
Seite 97 
Seite 49 
Seite 51 
Seite 31 
Seite 43 
Seite 60 
Seite 59 
Seite 129 
Seite 70 
Seite 53 
Seite 62 
Seite 56 
Seite 77 
Seite 28 
Seite 46 
Seite 17 
Seite 88 
Seite 29 
Seite 32 
Seite 131 
Seite 43 
Seite 52 
Seite 29 
Seite 16 
Seite 112 
Seite 62 
Seite 30 
Seite 58 
Seite 75 
Seite 30 
Seite 37 
Seite 61 
Seite 55 
Seite 38 
Seite 21 
Seite 33 
Seite 64 


Seite 38 
Seite16/17 
Seite70/71 
Seite 61 
Seite 75 
Seite 24 
Seite 67 
Seite 7 


Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 92 
Seite 73 
Seite 6 
Seite 73 
Seite 92 
Seite 89 
Seite 94 
Seite 8 
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Express Raider 
Galvan 
Gauntlet 
Gremlin take 4 
Greyfell 
Hacker II 


High Frontier — SDI Simulation 
Hive 

Hybrid 

Infiltrator 

Indoor Sports 
Infodroid 

It'sa Knockout 

James Bond — Im Angesicht des Todes 
Kinetik 

Koronis Rift 

Macadam Bumper 

Mag Max 

Mandragore 

Miami Vice 

Mountie Micks Deathride 
Murder on the Atlantic 
One 

Pitstop 

Prohibition 

Reisende im Wind 
Rescue on Fractalus 
Rock’n Wrestle 
Spielothek 

Spielothek — Olympiade des CPCs 
Space Shuttle 

Spy vs. Spy II 
Stairway to Hell 

Street Hawk 

Starfox 

Shadow Skimmer 
Super Cycle 

Tarzan 

Tracker (PC 1512) 
Triaxos 

The Sentinel 

The Vikings 

Topgun 

Vermeer 

Warlord 

Werner mach hin! 
Xarq 

Ziggurat 

Zombie 

Zorgos 


9/87 
5/87 
4/87 
10/87 
8/87 
6/87 
12/87 
6/87 
11/87 
5/87 
11/87 
5/87 
3/87 
12/87 
8/87 
7/87 
2/87 
11/87 
4/87 
5/87 
10/87 
6/87 
8/87 
9/87 
10/87 
7/87 
2/87 
3/87 
S 3/87 
S 4/87 
2/87 
9/87 
9/87 
11/87 
10/87 
10/87 
12/87 
S 2/87 
12/87 
10/87 
9/87 
7/87 
9/87 
11/87 
S 2/87 
1/87 
2/87 
10/87 
7/87 
S 2/87 


SOFTWARE TEST/ANWENDUNG: 


1st Word Plus 
Assembler-Kurs 
CPC-Copy Man 
CPC-Art Studio 
Disc-Para 

Dirman für Vortex-User 
EC Editor 
Deutschstunde 
DFÜ-Programm unter CP/M 
G-Base 

Handy Man 

Hercules Kompatible 
Kopierschutz 

Magic Brush 
Matheprogramme 
Multiplan 


Musiksoftware 
Print Master 
Proword 

Small C 
Softwaretest-Delta 
Startexter 
Starwriter 
Supercopy 
Synthesizer 
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5/87 
7/87 
8/87 
2/87 
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4/87 
5/87 
7/87 
6/87 
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5/87 
9/87 
1/87 
5/87 
5/87 
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10/87 
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7/87 
3/87 
9/87 
5/87 
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Seite 
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Seite 
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Seite 
Seite 
Seite 
Seite 
Seite 
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Seite 
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Seite 
Seite 
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Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
Seite 
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4 
10 
140 


To be? or to Bee? 
Tracer 
Vereinsverwaltung 
Vokabeltrainer 
Wordstar 1512 


HARDWARE-TEST & TECHNIK: 


Amiga Traum(?)-Computer 
DMP 4000 

Eprombrenner 

Drei Laufwerke am CPC 
Fremdrecorder 

Learning System 

Maxam 

Mirage-Imager 

Multiface II 

No Name Disketten 

Okidata MI 182 

Okimate 20 

PC 1640 

Pace RS 232 

Quadjet Drucker 

Schneider PC 1512 
Schneider PC 1640 
Schneider Data CD 15 

Star NB 15 Drucker 
Teac-Laufwerk an CPC und PC 
Vortex-Festplatte 
Vortex-Hybrid 
Vortex-Speicherkarte 
Zusatzlaufwerk 

Zweitfloppy (unter 200 DM!) 
Zweitlaufwerk 5,25 Zoll 
Zweitlaufwerk 

Zweitlaufwerk für den PC 1512 


SERIE: 


Basic-Kurs (Teil 1) 

Basic Kurs (Teil 2) 

Basic Kurs (Teil 3) 

Basic Kurs (Teil 4) 

Basic Kurs (Teil 5) 

Basic Kurs (Teil 6) 

CP/M Der CPC als Profi 

dBase II 

Geänderte Betriebssysteme Eprom 
Gewußt wie: Bildschirmgrafik 

Hi Soft: Das Directory 

Hi Soft: Leichte Symboldefinitionen 
Hi Soft: Und es geht doch: Hardcopy 
Hi Soft: Musik nach Noten 

Hi Soft: Dateiverwaltung: kein Problem 
Hi Soft: Window-Technik 

Hi Soft: Koordinatenberechnung 
Hi Soft: Patterns 
Maschinen-Sprachkurs (Teil 1) 
Maschinen-Sprachkurs (Teil 2) 
Maschinen-Sprachkurs (Teil 3) 
Maschinen-Sprachkurs (Teil 4) 
Maschinen-Sprachkurs (Teil 5) 
Maschinen-Sprachkurs (Teil 6) 
Maschinen-Sprachkurs (Teil 7) 
Maschinen-Sprachkurs (Teil 8) 
Maschinen-Sprachkurs (Teil 9) 
Maschinen-Sprachkurs (Teil 10) 
MS-DOS: 

MS-DOS: 

MS-DOS: Edlin Editor 

MS-DOS: Wichtige Sortierbefehle 
Rund um die Datensicherheit 

So funktioniert DFÜ 

Statistik gar nicht so schwer | 
Statistik gar nicht so schwer II 
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7/87 
11/87 
11/87 
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1/87 
7/87 
5/87 
4/87 
5/87 
1/87 
2/87 
6/87 
12/87 
12/87 
2/87 
2/87 
11/87 
7/87 
4/87 
6/87 
8/87 
1/87 
1/87 
9/87 
3/87 
5/87 
4/87 
6/87 
5/87 
10/87 
2/87 
9/87 


6/87 
7/87 
8/87 
9/87 
10/87 
11/87 
12/87 
3/87 
11/87 
10/87 
1/87 
7/87 
8/87 
6/87 
9/87 
10/87 
11/87 
12/87 
3/87 
4/87 
5/87 
6/87 
7/87 
8/87 
9/87 
10/87 
11/87 
12/87 
1/87 
2/87 
3/87 
4/87 
9/87 
7/87 
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SERVICE 


Seite 78 
Seite 21 
Seite 22 
Seite 9 
Seite 14 


Seite 140 
Seite 92 
Seite 24 
Seite 6 
Seite 22 
Seite 138 
Seite 13 
Seite 80 
Seite 71 
Seite 73 
Seite 12 
Seite 74 
Seite 4 
Seite 22 
Seite 73 
Seite 24 
Seite 4 
Seite 136 
Seite 6 
Seite 24 
Seite 73 
Seite 14 
Seite 10 
Seite 8 
Seite 61 
Seite 20 
Seite 18 
Seite 31 


Seite 82 
Seite 80 
Seite 59 
Seite 22 
Seite 14 
Seite 51 
Seite 69 
Seite 6 
Seite 16 
Seite 28 
Seite 13 
Seite 36 
Seite 22 
Seite 38 
Seite 78 
Seite 58 
Seite 68 
Seite 65 
Seite 18 
Seite 64 
Seite 27 
Seite 28 
Seite 38 
Seite 75 
Seite 80 
Seite 61 
Seite 26 
Seite 77 
Seite 16 
Seite 63 
Seite 22 
Seite 62 
Seite 20 
Seite 18 
Seite 24 
Seite 20 


MAGAZIN & SERVICE: 


Bücherkiste 

Bücherkiste 

Bücherkiste 

Bücherkiste 

Bücherkiste 

Bücherkiste 

Cebit 87 

Computer im Streifenwagen 
Computertisch im Eigenbau 
Dauerfeuer mit Joystick geht doch 


Der erste Laserdrucker unter 1000 DM 


Dialog 2: Kopierschutz 
Die Kunst Kunden zu verägergern 
Drucker Sonderteil 


Erste Hilfe beim Umgang mit dem PC 1512 2/87 


FensterIn mit Basic II 
F.W.: Computer Fehlermeldung 


F.W.: Computer-Kurs Teil Il von Teil IV 


F.W.: Der Computer des Jahres 
F.W.: Geistige Ergüsse und Genüsse 
F.W.: Neuigkeiten aus aller Welt 
F.W.: Rat und Hülfe 


F.W.: Vom Umgang mit Softwarefirmen 


F.W.: Geschäftsbedingung 

F.W.: Die Adressdatei ist fertig 
F.W.: Vergessen Sie Basic 

F.W.: Produktberatung 
Kommentar: Wo ist die Innovation? 
Lernen per Computer in der Schule? 
Maschinensprachbuch 
Maschinensprache 

Messerundschau System '87 

Seit wann gibt es Computer? 
PC-Handbuch unter der Lupe 

So arbeitet der Monitor 

So arbeiten Diskettenstationen 

So passen Sie Ihren Drucker an 
„Test‘ und sein ‚Test‘ 

Thema Indiziert 

Was ist mit gelöschten Files? 
Zeichensatz auf dem Drucker 


BUCHBESPRECHUNG 


25 EXTRA-SPIELE MIT 
KÖPFCHEN FÜR DEN 
SCHNEIDER CPC UND 
ÄHNLICHE COMPUTER! 


Als Ein- oder Umsteiger 
ist man zu Beginn natürlich 
ständig auf der Suche 
nach Software für seinen 
neuerworbenen Compu- 
ter. Dies stellt sich für die 
echten Anfänger, die ja 
von Programmieren noch 
nicht viel Ahnung haben, 
als großes Problem dar. 
Speziell an diese Grup- 
pe(n) wendet sich Bert- 
hold Freier in seinem 
Buch. 

Zunächst sei einmal ge- 
sagt, daß man sich von 
dem Titelzusatz ‚,...und 
ähnliche Computer“ nicht 
irreführen lassen sollte. 
Alle im Buch enthalte- 
nen Programme sind spe- 
ziell für die Schneider 


3/87 Seite 21 
5/87 Seite 66 
8/87 Seite 75 
9/87 Seite 85 
Ss 2/87 Seite 138 
12/87 Seite 74 
4/87 Seite 4 
1/87 Seite 73 
S 3/87 Seite 6 
8/87 Seite 18 
2/87 Seite 8 
8/87 Seite 86 
6/87 Seite 18 
1/87 Seite 23 
Seite 15 

4/87 Seite 58 
8/87 Seite 82 
1/87 Seite 19 
7/87 Seite 41 
6/87 Seite 89 
9/87 Seite 18 
1/87 Seite 12 
5/87 Seite 58 
3/87 Seite 14 
2/87 Seite 22 
3/87 Seite 25 
12/87 Seite 84 
11/87 Seite 18 
6/87 Seite 20 
9/87 Seite 25 
10/87 Seite 61 
12/87 Seite 13 
1/87 Seite 74 
6/87 Seite 22 
9/87 Seite 14 
6/87 Seite 14 
8/87 Seite 19 
3/87 Seite 79 
7/87 Seite 17 
6/87 Seite 37 
7/87 Seite 79 


CPC Computer geschrie- 
ben. Um sie auf anderen 
Systemen zum Laufen 
zu bringen, müßte man 
sie erst mit Hilfe von 
Basic-Vergleichstabellen 
umschreiben, was sich 
aber laut Autor als nicht 
allzu schwierig gestalten 
dürfte. 

Das Buch enthält, wie es 
auch der Titel verrät, 25 
Programme, die alle in 
reinem Basic gehalten 
sind und deshalb mit 

der Zeit leicht verbessert 
oder angepaßt werden 
können. Sie sind einge- 
teilt nach Lern-, Strate- 
gie-, Gedulds-, Unterhal- 
tungs-, Glücks- und Ak- 
tionsspielen. 

Alle Programme arbeiten 
mit einem deutschen 
Zeichensatz, der am An- 
fang des Buches als Extra- 
listing abgedruckt ist. Um 
sie nicht joystickabhängig 
zu machen, werden sämt- 
liche Spiele mit dem Zif- 


fernblock gesteuert. Um 
also beispielsweise ein Ob- 
jekt oder einen Sprite 
nach oben zu bewegen, 
muß die 8 betätigt wer- 
den. Den ‚‚Feuerknopf“ 
stellt die 5 dar. 

Über die mehrmalige Ver- 
wendung von RND und 
RANDOMIZE Funktio- 
nen ist eine große Varia- 
tionsbreite der Program- 
me gegeben. Durch die 
Verwendung von vielen 
REM-Zeilen ist es wirk- 
lich auch für Anfänger 
nicht schwer, den Ab- 
lauf der einzelnen Pro- 
gramme nachzuvoll- 
ziehen. 

Fast allen Programmbe- 
schreibungen sind zum 
Teil mehrere Tips beige- 
fügt, in denen kurz aber 
gut verständlich Rat- 
schläge zum Verbessern 
des Spieles enthalten 
sind. Da gibt es zum Bei- 
spiel Hinweise zum Ver- 
bessern der Grafik oder 
der Musikstücke und Me- 
lodien. Aber auch Tips 
zum Lösungsweg werden 
nicht vernachlässigt. 
Wenn sich also der Ein- 
bzw. Umsteiger in Basic 
schon etwas weitergebil- 
det hat, kann er sich die 
Programme leicht auf sei- 
ne eigenen Bedürfnisse 
zurechtschneiden. 

Nun aber zu den einzel- 
nen Programmen: Ich 
habe mehrere davon ab- 
getippt und sorgfältig ge- 
testet. Das Ergebnis: Sie 
laufen alle einwandfrei, 
ohne den geringsten Feh- 
ler. Unter den 25 Listings 
dürfte wirklich für jeden 
etwas dabei sein. Da gibt 
es zum Beispiel das Pro- 
gramm „‚Inserat-Jux‘‘, mit 
welchem Zeitungsinserate 
zusammengestellt werden 
(natürlich nur zum Spaß). 
Der CPC fragt nach einzel- 
nen Wörtern, die er dann 
geschickt in eine Anzeige 
umwandelt. 

Wer ‚keinen Spaß ver- 
steht‘, sondern mehr auf 
Action steht, der dürfte 
wohl mit dem Spiel 
„Nachschub“, in welchem, 
der Spieler eine Raumsta- 
tion im All versorgen muß, 
besser bedient sein. Un- 
ter den 25 Programmen 
findet der schon etwas 


SERVICE 


25 Extra-Spiele 


mit Köpfchen 
für den Schneider CPC 


m 
Y 
» 


eingeweite Computerfreak 
viele Bekannte wie ‚Tür- 
me von Hanoi“ oder einen 
Pac Man Verschnitt wie- 
der. 

Dat} die Programme alle 

in Basic gehalten sind, 
geht zwar manchmal, be- 
sonders bei Actionsspie- 
len, zu Lasten der Ge- 
schwindigkeit, fällt aber 
aufgrund der guten Quali- 
tät der Spiele nicht son- 
derlich auf. Wer Maschi- 
nensprache ein klein we- 
nig beherrscht, kann sich 
die entsprechenden Passa- 
gen leicht abwandeln. Da 


die Spiele alle nicht allzu 
lang sind (im Durch- 
schnitt etwa 5 KByte), 
kann man sie auch schnell 
mal zwischendurch abtip- 
pen. Schnell geladen sind 
sie dann ja auch wieder. 
Das ganze Buch umfaßt 
105 Seiten, die etwa zu 
85 Prozent von Listings 
eingenommen werden. 
Zusammengefaßt kann 
man sagen, daß es sich bei 
„25 Extra-Spiele für den 
Schneider CPC und ähnli- 
che Computer‘ um ein 
Buch handelt, bei dem 
sich der Kauf wirklich 
lohnt, sofern man noch 
nicht allzu viel von Basic 
versteht. Die Programme 
wachsen praktisch mit 
den Programmierkennt- 
nissen des Käufers mit. 
Erfahrenere Computer- 
freaks werden an diesem 
Buch keine allzu große 
Freude haben, da die 
Listings für sie nichts 
Neues bieten. Den Anfän- 
gern kann man es aber 
nur empfehlen. Übrigens, 
zu haben gibt’s das Buch 
im Fachhandel, erschie- 
nen ist es im IDEA- 
Verlag. (TB) 


EXPERIMENTE ZUR 
KUNSTLICHEN 
INTELLIGENZ IN 
BASIC AUF DEM 
CPC 464/664/6128 


Künstliche Intelligenz ist 
„in“. Vielleicht wird das 
Interesse daran durch die 
Angst um den Arbeits- 
platz vorangetrieben, viel- 
leicht wollen sich die Be- 
sitzer eines Computers 
aber auch nur informie- 
ren, was denn heutzutage 
alles machbar ist. Lite- 
ratur gibt es genug und 
aus dieser Schwemme das 
geeignete Material heraus- 
zusuchen, ist schwer. Da 
greift man dann gerne zu 
einem Titel, in dem das 
eigene Rechnermodell zu 
Beispielprogrammen her- 
genommen wird. Einer 
davon, recht neu auf dem 
Markt. ist die 
„praxisbezogene Einfüh- 
rung“ (Zitat) von Olaf 
Hartwig. 

Die Problematik des The- 
mas soll in dieser Bespre- 


chung keine Rolle spielen. 
Es würde zu endlosen Dis- 
kussionen führen, wenn 
man klären wollte, inwie- 
weit Maschinen intelligent 
sein können. Nicht ein- 
mal Experten lassen sich 
zu einer Definition der 
Intelligenz herab. 

Jene sprechen, um 
„Computerdenken“ als 
intelligent bezeichnen zu 
können, vorsichtig von ei- 
ner „künstlichen Intelli- 
genz“. 

Hier liegt auch ein positi- 
ver Verdienst des Autors, 
der gleich zu Beginn den 
Stellenwert der Mikro- 
elektronik aufdeckt und 
diese Einschätzung auch 
durch das ganze Buch hin 
beibehält. Es wäre auch 
anders nicht zu machen 
gewesen, wählte er doch 
für seine Programme den 
CPC aus. Zwar sind die 
angesprochenen Exper- 
tensysteme nicht unbe- 
dingt auf Spitzentechnolo- 
gie der Hardware ange- 
wiesen (es geht dann nur 
schneller), doch die Soft- 
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ware benötigt sehr viel 
Speicherplatz. Damit 
kann der CPC, einer der 
letzten heroischen Vertre- 
ter der 8-Bit-Generation, 
leider nicht aufwarten. 
Es bleibt also beim wört- 
lich zu nehmenden Buch- 
titel: Beispielhafte Ansät- 
ze und kleine Übungen 
zum Thema. 


ELIZA SPIELT DIE 
HAUPTROLLE 


Kernstück der Programme 


ist die Spracheingabe und 
deren Erkennung durch 
den Rechner. Damit ist 
nicht etwa der akustische 
Vorgang gemeint, sondern 
es geht um INPUT-Routi- 
nen und IF-THEN-Verglei- 
che. Dabei ist natürlich 
auch von ‚„‚Eliza‘““ die 
Rede, welche in mehre- 
ren Versionen vorliegt. So- 
wohl die ursprüngliche 
Idee, ein Psychotherapeu- 
ten-Programm, als auch 
Abwandlungen, etwa das 
„Vorgesetzten-Eliza‘“, 
sind vollständig abge- 
druckt. Dem einen oder 
anderen mag dieses eigent- 
lich humorvolle Listing 
bekannt sein. Es soll 
schon Leute gegeben ha- 
ben, die sich bis zu zwei 
Stunden mit dem Pro- 
gramm unterhalten haben, 
bevor sie erkannten, wel- 
che simple Logik hinter 
dieser vermeintlichen In- 
telligenz steckt. 

Bei den Listings, nicht 

nur jenem ‚„‚Eliza‘““, gilt 
folgendes: Sie sind durch 
die Bank ausgezeichnet 
dokumentiert und was 
darüber hinaus zu sagen 
ist, erklärt der Autor in 
flüssiger, fast unterhalten- 
der Form, ohne Fachchine- 
sisch zu reden. Den Listings 
wird allerdings der weit- 
aus größte Raum ge 

ben, ein Buch also für 
„Abtipper*. 

Aber nicht nur Eliza spielt 
eine Rolle. Ebenso wich- 
tig zum Verständnis der 
künstlichen Intelligenz 
sind das Versprogramm 
(ein Versuch, aus einem 
CPC einen Goethe zu ma- 
chen) und sogenannte Ex- 
pertensysteme. Es würde 
zu weit. führen, hier die Er- 
klärungen des Autors 
(und die Listings) aufzu- 


führen, aber man kann si- 
cher sein, daß beide Be- 
reiche sehr gut dargestellt 
sind. 


DER MOUSE-WETT— 


BEWERB ALS HÄRTE- 
TEST FÜR ROBOTER- 
STEUERUNG 


Ein recht ausführlicher 
Teil des Buches beschäf- 
tigt sich mit dem Maus- 
Wettbewerb. Damit ist 
nicht etwa das Eingabe- 
gerät eines PC gemeint, 
sondern ein Robotertier, 
welches in der Lage ist, 
sich in einem Labyrinth 
seinen Weg zu suchen. 
Dies ist, man denke an 
Versuche mit echten Rat- 
ten, einer der zuverlässig- 
sten Wege, die Intelligenz 
zu testen. Die Problem- 
stellung jenes ‚„‚Micro- 
Mouse Contest‘ wird aus- 
führlich erörtert. Es han- 
delt sich dabei nämlich 
nicht um einen Jux, den 
sich Informatik-Studen- 
ten machen, sondern die- 
ser Härtetest führt zu 
konkreten Auswirkungen 
in der Industrie. Viel- 
leicht kann es den einen 
oder anderen Leser aber 
auch noch verwundern, 
daß ein solches Pro- 
gramm auch auf dem CPC 
zu realisieren ist. Entspre- 
chende Mechanik, oder 


die Bereitschaft zu basteln, 


muß jedoch vorhanden 
sein. 


SERVICE 


Zu guter Letzt handelt 
Olaf Hartwig auch die 
Expertensysteme ab. Wie 
immer bietet er dabei ge- 
nügend Beispiele für den 
CPC. Eines der bekann- 
testen Spiele, basierend 
auf dem Suchbaum, ist da- 
mit schnell programmiert. 
Auch hier wird sich manch 
einer wundern, wie einfach 
eigentlich alles zu realisie- 
ren ist, vorausgesetzt, ein 
Grundkonzept ist erst ein- 
mal entwickelt. 

Der Autor kommt zu die- 
sem Zeitpunkt relativ 
schnell zu einem Ende. 

Es folgen noch Stichwort- 
verzeichnisse, eine kleine 
Chronologie und ein Aus- 
blick auf die Zukunft 
der künstlichen Intelli- 
genz. 


FAZIT: TITEL BITTE 
WÖRTLICH NEHMEN 


Künstliche Intelligenz, 
mit allem was derzeit 
machbar ist, kann auf ei- 
nem CPC natürlich nicht 
realisiert werden. Wer 
dies bei diesem Buch er- 
wartet, der hätte den 
Titel wörtlich nehmen 
sollen. Es handelt sich um 
kleine Beispiele, welche 
die Problematik, aber 
auch die Möglichkeiten 
dieser zukünftigen Soft- 
ware, darstellen sollen. 
Trotzdem richtet sich der 


Autor nicht nur an den 
Theoretiker. Die vielen 
Listings sind alleine schon 
nützlich (Parser für Ad- 
ventures), amüsant (Vor- 
gesetzter-Eliza) und inter- 
essant (Mouse-Steuerung). 
Alle lassen sich leicht aus- 
bauen und — zumindest 
vom Konzept her - in ei- 


gene Programme einbauen. 


Trotz des Übergewichts 
an Software liest es sich 
aber nicht schlecht, was 
Olaf Hartwig zu schreiben 
hat. In verständlicher 
Form vermag er einige 
Erklärungen zur nächsten 
Softwaregeneration abzu- 
liefern. Sicherlich wünscht 
man sich einen etwas aus- 
führlicheren Text, doch 
was wichtig und wissens- 
wert ist, ist im Buch ent- 
halten. Vielleicht auch 
noch ein Wort zum Preis. 
Selbstverständlich steckt 
in diesem Buch viel Arbeit 
und Wissen und die Auf- 
lage mag gering sein. 
Aber 49,— DM sind auch 
sehr viel Geld für ein 
225 Seiten umfassendes 
Spezialbuch. Der Markt 
& Technik Verlag hat da- 
mit den einzigen negati- 
ven Punkt dieser Bespre- 
chung geschaffen. Den 
Interessierten seien die 
„Experimente zur künst- 
lichen Intelligenz auf 
dem CPC 464/664/6128° 
(ISBN 3-89090-473-4) 
trotzdem empfohlen. 
(GS) 


En EEEEEESETEGEHEESER) 


BEZUGSQUELLEN — 
WAS GIBT ESWO? 
Von Schneider aktiv 
getestet 


Wir wollen hier keine 
Gratiswerbung — es fin- 
den sich auch die Ver- 
treiber jener Soft- und 
Hardware, die bei uns 
nicht auf Gegenliebe 
stieß — machen, aber 
ein Testbericht ist völlig 
sinnlos, wenn wir nicht 
auch mitteilen, wo das 
Besprochene zu bezie- 
hen ist. Leider können 
nicht alle Händler be- 
rücksichtigt werden, die 
die Ware im Sortiment 
führen. Dies soll nur ein 


letzter Hinweis für den- 
jenigen Interessenten 
sein, der bei seinem 
Fachhändler auf leere 
Regale stieß. 


Star Writer PC (9/87) 


Star Division 
Uelzener Str. 12 
Lüneburg 


Magic Brush (9/87) 
Stairway to Hell (9/87) 
Donkey Kong (9/87) 
Express Raider (9/87) 
Prohibition (10/87) 
Gremlin Take 4 (10/87) 
Shadow Skimmer (10/87) 
Ziggurat (10/87) 
Mountie Mike’s 


Deathride (10/87) 
Street Hawk (11/87) 
Mag Max (11/87) 


Waldeck Software 
Tulpenstr. 30 
2870 Delmenhorst 


Bezugsquelle Bausatz 
(10/87) 

P. Konrady 

GE-Soft 
Graurheindorferstr. 21 
8036 Herrsching 

Tel. 0228/694221 


Markenlaufwerke zum 
Bausatz (10/87) 

NEC Deutschland 
Postfach 

8000 München 
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Enduro Racer (9/87) 


Activision Deutschland 
GmbH 

Postfach 760680 

2000 Hamburg 


Spy vs. Spa (9/87) 
Challenge of Gobots 
(9/87) 

Triaxos (10/87) 

Starfox (10/87) 

Cholo (11/87) 

Indoor Sports (11/87) 
Hybrid (11/87) 

Vermeer (11/87) 
Balloon (12/87) 

Asphalt (12/87) 

Fußball Manager (12/87) 
Tracker PC 1512 (12/87) 
High Frontier (12/87) 


ariolasoft GmbH 


Postfach 1350 


4830 Gütersloh 
Proword (10/87) 


Arnor (Deutschland) 
Hans-Henny-Jahn-Weg 21 
2000 Hamburg 76 


Vereinsverwaltung (11/87) 


„Byte me”-Computer- 
systeme 

Wilhelmstr. 7 

5240 Betzdorf 


Multiface II 


Weeske Computer 
Elektronik 
Potsdamer Ring 10 
7150 Backnang 

und 

Romantic Robot 
(Goldscheider) 

Ben Gurion Ring 80 
6000 Frankfurt 56 


Schneider PC 1640 
(11/87) 


Im Fachhandel 


Pitstop II — PC 1512 
(9/87) 


Schneider Data 

Computer Vertriebs GmbH 
Rindermarkt 8 

8050 Freising 


Suche für den CPC 6128 ein 
Vortex 5 1/4 Laufwerk od. 
ein anderes 80-Spuren-Lauf- 
werk (möglichst billig), wei- 
terhin ein Mailbox-Prog. 
Angebote an V. Rumohr, 
H.d. Kirchhof 14, 2308 
Preetz, Tel. 04342/2131 


1 DM im Monat, und Du bist 
um (monatl.) 1 Spiel, Listings 
etc. reicher! MAGIC-COM- 
PUTER-CLUB für CPC. 
Listen an Arnd Ziesemer, 
Gabelsbergerstr. 18, 

7800 Freiburg 


Raum MILTENBERG. Suche 
Kontakt zu CPC-Usern. 
Schreibt an: M. Rabis, Sude- 
“ tenstr. 26, 8766 Großheu- 
bach 


Sonderangebot f. alle 464. 
Verk. Schaltung f. Anschluß 
an TV m. Scartbuchse f. 30,— 
DM. Anschluß an Stereoan- 
lage 12,— DM. Nur gg. V- 
Scheck od. Nachnahme. Dirk 
Wolters, Koblenzer Str. 39, 
5427 Bad Ems, Tel. 02603/ 
3421 


VERKAUFE CPC 464 grün 
f. 270,— DM. Suche Printer 
DMP 2000 zu kaufen. Bitte 
erst nach 20 Uhr anrufen. 
Tel. 02451/46608 


3“ Disketten, gebr., inkl. 
Kunststoff-Klapphülle a 4,— 
DM, ab 20 St. portofrei. Tel. 
06638/1503 


Verk. Starwriter V 3.1 f. 
120,— DM. Suche Datamat (f. 
CPC 6128), Datei-Star, Tex- 
tomat, CAD (f. Platinenlay- 
out, Kauf od. Tausch, Tel. 
0551/33542 (Mo.—Frei. 
11-17 Uhr) 


An alle Fischertechnik Com- 
puting-Fans: Verk. Zusatzkä- 
sten zur Computing-Serie nur 
kompl. f. 550,— DM statt 
1.200,— DM Neupreis. 


Suche DD1, Farbmon.u. 
Drucker f. CPC 464 zu ver- 
nünft. Preisen. Klaus Beck- 
mann, Tel. 04407/5290 


Basic-Nachhilfestunden Raum 
Mainz erteilt: Christoph Lier 
(CPC 6128) Tel. 06131 ......... 


Anfänger sucht Software f. 
CPC 464. Bitte schreibt an 
Nguyen Van Quang, Grepper- 
str. 62,CH-6403 Küssnacht 


Verk. Matrixdrucker: Shinwa 
CP 80 m. Centronics-Schnitt- 
stelle, in sehr gutem Zustand! 
Fast wie neu! VB DM 300,—. 
Tel. 089/6370808 ab 18 Uhr 


LICHTGRIFFEL 
mit Programm für CPC 
464 oder CPC 664 + CPC 
6128 nur 49,— DM. Ver- 
sand gegen Scheck/Nach- 
nahme. Info gratis! 

Fa. Schißlbauer, Postfach 
1171S, 8458 Sulzbach, 
Tel. 09661/6592 bis 21h 


** Hey, Freaks, 464/6128 ** 
Habe Softw., Anwend. zum 
Tausch! Wer Lust hat, ruft 
mich an! Tel. 05261/72453, 
nach Jörg fragen. Auch 
Anfänger od. weibl. Geschl. 
(nur Orig.) 

Drucker DMP 2000 £. 400,— 
DM. Star Writer I Vers. 3.1 
m. Tastaturkleber f. 100 DM 
u. Datei-Star f. 50,— DM 
(zus. f. 130,— DM) * Tel. 
0621/652483 ab 18 Uhr 


Profi-Anwend.-Prog. wie z.B. 
Adressenverw., Lohnabrech- 
nung uv.m. Kostenlose Liste 
anfordern bei T. Dahmen, 
Vellwigstr. 33, 4690 Herne 1. 
Es lohnt sich! 


Verk. TV-Tuner f. Monitor. 
VB 100,— DM. Lothar Adam. 
Äuß. Sulzbacher Str. 146, 
8500 Nürnberg 20 


Hallo Du! Suche gute An- 
wend. u. Spielprog. Schickt 
Eure bespielte Disk. m. 
Liste an Thomas Elstorpff, 
Hausener Str. 14, 7214 Zim- 
mern 


Tausche Softw. aller Art, nur 
Tape. 100 % Antwort. Listen 
od. sogar bespielte Tapes an: 
Michael Schaefer, Rhein- 
Maas-Str. 3, 5100 Achen 


Tausche 3‘“-Spiele f. CPC 
6128. Einfach anrufen unter: 
06204/78380 od. schreiben 
an: Andreas Jordan, Rathaus- 
str. 53, 6806 Viernheim 


** Achtung, CPC-Freaks! ** 
Ich fertige Sicherheitskopie 

v. 3“-Disk. Orig.-Disk. u. 
Leer-Disk. m. 5,— DM an 
Thomas Mehring, Im Kamp 5, 
5012 Bedburg. 100 % Rück- 
kehr beider Disk. Achtung, 
Rückporto nicht vergessen! 


GRATIS erhalten Sie meine 
Preisliste für jeden CPC. Nütz- 
liche Software zu kleinen 
Preisen. Anfragen bei Fried- 
rich Neuper, Postfach 72, 
8473 Pfreimd 


Jetzt bietet MAGIC-CLUB 
das Riesen-Angebot: 1 Jahr 
umsonst im MAGIC-CLUB! 
jetzt Teilnahme fordern! 
Arnd Ziesemer, Gabelsber- 
gerstr., 7800 Freiburg. Magi- 
sche Kräfte! 


Verk. Matrix-Drucker Star SG 
10 m. Textverarb., 120 Z/ 
Sek., NLQ-fähig, Schneider- 
kompatibel, Centr.-Schnittstr. 
Karl-Heinz Köhler, Hersfelder 
Str.36, 3578Schwalmstadtl, 
Tel. 06691/22316 


Achtung! Verk. Schneider 
CPC 6128 m. Software (Word- 
star, Schach) u. Büchern (Ba- 
sic-Trainings-Handbuch), 
grüner Monitor! Preis ist 
Verhandlungssache! Tel. ab 
18 Uhr: 04351/42773 


Suche Vortex SP 256 BOS 
1.0. Zahle bis 150,— DM. Tel. 
02135/73572 


**%* SUPER SCHNEIDER *** 
CPC 464 in IBM-Geh. (VA- 
RIATUS), 3“ u. 5 1/4“ Flop- 
py, Vortex 512 KB, Dk’tr. 64 
Kb, AMX-Maus, BOS 2.1, 
Speech-Synth., V24, ext. 
Netzteil, Bücher, Hefte, Abso 
Softw. u. weit. Zubehör. 
Derz. Wert 4.000,— DM, VB 
2.200. Info: Bender, Tel. 
06101/3609 
MAGIC-COMPUTERCLUB 
PRÄSENTIERT: Jeden 
Monat 1 Spiel, jeden Monat 
Listings, jeden Monat Infos, 
jeden Monat Anwendungen. 
Alles für 1 Mark monatlich! 
Jetzt anmelden! 0761/ 
442829 in 78 Freiburg 


Tausche Software aller Art. 
Bitte nur Tape. Schickt Eure 
Listen an Reiner Ploenes, 
Amyastr. 34, 5100 Aachen. 
CPC 464. 100 % Antwort auf 
Eure Briefe. 


Orig.-Spiele u. Programme f. 
Schneider CPC zu verkaufen. 
Wordstar 3.0 f. 464/664 
120,— DM; Airwolf, Combat 
Lynx, Hunter Killer, Infiltra- 
tor, Red Arrows, Marsport, 
Strike Force Harrier, je 

Disk. 25,— DM; Lotto 6 aus 
49, Disk. 30,— DM, Game 
Box 1, Kass. 10,— DM. Tel. 
089/6370808 ab 18 Uhr 


Umsteiger, Auf-, Absteiger: 
Für meine Prog.-Sammlung 
suche ich Anwend.-Pro- 
gramme aller Art. Ferner 
Lohnabrechnung monatlich 
u. Kalkulation f. Verkaufs- 
artikel. Auf Schneider 6128, 
Tel. ab 16 Uhr: 09120/ 
6578 


AMX-Mouse, AMX-Page- 
maker, versch. Software: 
Quill (adv.-Construction- 
Set), Laser Basic, Academy, 
Rock’n Wrestle, Spindizzy, 
Metro, Game Over, Gyro- 
scope, Hacker, Decathlon 
etc. Tel. 06051/73745 


Suche Farbmonitor f. CPC 
6128. Tel. 09776/9143 ab 

17 Uhr 

Suche dt. Bedienungsanlei- 
tung f. NLQ 401 sowie 
Hardwareplan des CPC 464. 
Verk. Aero 1-150 in Sam- 
melmappen, VP ca. 550,— 
DM. Walter Bentz, Wieland- 
str. 36/4, 7900 Ulm, Tel. 
0731/24945 

STOP + SCHNEIDER CPC 
464 + Programme auf Tape 
u. Disk. zu Wahnsinnspreisen. 
Superliste anfordern bei: 
Thomas KNapek jun., Eichen- 
weg 21, 8312 Dingolfing. 
Bitte m. Rückporto. Danke. 


* WEIHNACHTSGESCHENK 
Verk. Komplettsystem CPC 
664, Grün- u. Farmon., 
Zweitfloppy 5 1/4, Bücher, 
orig. Software auf Disk. u. 
Zubehör. Komplettpreis: 
1.600,— DM. Ruft an: 
02181/73503 

Verkaufe Dataphone S21d m. 
Software „Teleport‘“ f. den 
CPC 664 u. 6128. Preis 150,— 
DM. Tel. 089/425073 


Green Mon. u. Pagemaker, 
tausche gg. Farbmon. f. CPC 
6128. Suche auch zuverl. 
Tauschpartner. Rufen Sie an. 
0631/40656 nach 18 Uhr 


Verk. Orig. auf Disk je 5,— 
DM; Finders Keepers; Maniac 
Miner; Caves of Doom; 
Speed King; Chiller; Razone; 
Ninja Master, Kane; 26 Kass. 
„Compute mit“ je 3,— DM; 
MPI 70,— DM. Für CPC 464. 
Helmut Ruland, Frankenweg 
4, 6915 Dossenheim 


Verk.: Orig.-Spiele, z.B. auf 
Kass. Arnheim, Combat 
Lynx, Decathlon, Fruit 
Machine, Hyper Sports, 
Strike Force Harrier, Winter 
Games, Winter Sports, The 
Devil’s Crown, World Cup, 
Carnival, jedes Spiel 15,— 
DM. Wolfram Lühning, 
Lesum Str. 4, 2810 Verden/ 
Aller. 

IBM u. Komp.: 10 Lern-/ 
Spiel-Prog. f. 6—14-Jährige. 
Disk. f. 20,— DM (Schein) 
von: M. Freier, E.-Kraus-Str. 
25, 8709 Rimpar 
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BÖRSE 


4 Farb- 114 mm Rollenplot- 
ter für alle CPC 150 DM: 
Profi Painter 50 DM: XBC 
Basiccompiler für strukturier- 
tes Programmieren, Labels, 
Fließkomma, Tel. Datei 

60 DM. Auch Tausch gegen 
Anwendersoftware. Bruno 
van Danen, Vehrels 35, 
28HB66 0421513283 


*** An alle CPC-User *** 
Verkaufe für CPC eine 3“ 
Disk. voll mit Spielen oder 
Anwendungen Ihrer Wahl 

für nur 25,— (z.B.: Graphik 
Master, Grand Prix, Bomb- 
jack, 1942). Info: Kay 
Schwettmann, Steubenstr. 6, 
4990 Lübbecke 1, Tel. 05741/ 
16 86 


Suche dringend preisw. Erst- 
laufwerk f. CPC 464, mögl. 
51/4“ Tel. 02433/1350 


Achtung! CPC 6128 Besitzer. 
Suche Tauschpartner, habe 
viele Programme, z.B. AMX 
Pagemaker, Mica, StarTexter, 
dBasell, Frontier (SDI 
Symulation Spiel / Bitte 
gleich im ersten Brief paar 
Programme zuschicken an: 
DUDA Anna, 6750 K’lau- 
tern, Barbarossaring 32 

*** Achtung *** 

Verkaufe Spiele für CPC’s 
nur auf Diskette: They stole 
a Million: 25,—. Druid/Rague 
Trooper / Scooby Doo / 

alle 15,—. Schreibt an: 

C. Glogau, Auf der Heide 24, 
5205 St. Augustin 1 


CPC 464 — Eprom Platine 
mit 3 Eproms (Protext- 
Utopia — Maxam) 250 DM 
und RS232 Schnittstelle für 
70,— DM zu verkaufen. 
Bargeld oder Scheck an: H. 
Kinkel, Postfach 1552, 5130 
Stolberg, Tel. 02402-21354 
Hey Du! Ich suche Top 
Games in ganz Europa. 
Schickt Eure bespielten Disk 
an: Thomas Elstorpff, Hause- 
ner Str. 14, 7214 Zimmern | 
(Tel. 0741/32857) 100 % 
Antw. 3 Zoll 

*** Achtung *** 

Verkaufe Originalkassetten 
Spindizzy, Mindshadow, 
Cyrns 3-D Chess, Nonterra- 
quaeous im Set: ÖS 350,— / 
DM 50,-—. Markus Heinrich, 
Mitterweg 4, A-4150 Rohr- 
bach Österreich 

Suche Spielanleitung für 
ELITE (Fotokopie o0.ä.). 
Unkosten werden erstattet. 
Jochen Koch, Haustr. 23, 
7401 Pliezhausen 


Suche für CPC6128 ein 
3-Zoll-Zweit-Laufwerk. 
Zuschriften an: Markus 
Driester, Dotzheimerstr. 113, 
6200 Wiesbaden, Tel. 06121/ 
444141 

Aktienverwaltung Programm 
mit BTX Routine. Dosaal, 
Loheide 38, 4800 Bielefeld 


Wer kann mir für meinen CPC 


6128 das Psion Chess Pro- 
gramm besorgen? Suche auch 
Star Writer, Barbarian, Wer- 
ner, Arkanoid 

Heinz Katolla, Werner Hell- 
weg 81, 4630 Bochum, Tel. 
0234/360714 

Verkaufe CPC 464 + 64K 
Erweiterung + Software + 
Handbücher — 425 DM — 
oder Tausch gegen? 

Tel. 06006 — 73519 ab 20h 


20 MB Festplatte incl. Contr. 
für Schneider PC zu verk. 
Tel. (0921) 445 20 ab 18 Uhr 


Lightpen für CPC Marke: 
Trojan GB / Neupreis 99,— 
DM, verkauft wegen Syst. 
Aufg. für 40,— DM H.A. 
Kretzschmar, Postf. 210405, 
4100 Duisburg, Tel. 0203/ 
283 31 16 oder 33 73 83 
(nach 17.00 Uhr) 

Suche Spiele u. Anwendungs- 
prg. (Donky Kong, Thoma- 
hawk, Beach Head I+II, Ma- 
stercopy usw.) Alles auf C/D, 
Suche Farbmonitor für 6128, 
Kaufe und Tausche Program- 
me, Suche Freeware. Sendet 
Listen, Antwo. garantiert. 
Wimmer, Röthenstr. 15, 
8643 Küps 


Suche Kalkprogr. u. Übersch- 
Ru. FDI im Tausch gegen 
and. Soft. D. Maron, Bahn- 
str. 26, 2085 Quickborn 


Verkaufe Schneider-Drucker 
NLQ 401 mit Traktoraufsatz 
VB 390,-—. Tel. 05532/ 
5430 


*** CPC Tauschpartner *** 
Tausche Software jeder Art 
auf Tand D. Sendet Eure 
Listen an: 

Mark Stauffer 
Hölibachstraße 110 

CH-8912 Obfelden (Schweiz) 
Beantworte jede Zuschrift ! 
Suche Vortex-Fooppy F1-X 
zum CPC464 auch reparatur- 
bedürftig u. Speichererwei- 
terung mit Handbuch + Land- 
wirtschaftliche Software. 
Angebot an Schindler Josef, 
3932 Weissenalbern 21, 
Austria 


”* Super Sounder . 
Mit 3stimmiger Musikstück- 
eingabe, alle Noten! + Spielen 
Sie Noten wie auf einem Kla- 
vier (alle Noten), mit Super 
Auswahl beim eigenen Vor- 
spiel! Auch für Musikfreunde 
ohne Notenkenntnis geeignet! 
Für alle CPCs; Cass. 30,—, 
Disc 40,— DM. Rene Hanu- 
schek, Tropschallee 31, 8264 
Waldkraiburg, Tel. 08638 / 
1852. 
Achtung! Fertige Sicherheits- 
kopien vom 3“-Disketten für 
nur 1 DM an. Original + Leer- 
disk an: Thomas Mehring, 

Im Kamp 5, 5012 Bedburg 4. 
Beide Disks kommen garan- 
tiert zurück! Achtung! Rück- 
porto nicht vergessen! 


Suche: Werner (Das Spiel) f. 
den 6128 auf Diskette. 

Rolf Hanfland, Fuchspfad 60, 
5760 Arnsberg 2 


Hallo Computerfans — ver- 
kaufe Software auf 3“ Dis- 
ketten für CPC. Sende Liste 
gegen 80 Pfennig Briefmarke. 
Im Angebot sind enthalten: 
Games und Anwenderpro- 
gramme. Liste an Heike Lo- 
renz, Blücherstr. 58, 6200 
Wiesbaden, Tel. 06121/ 

44 44 87 / Disc. 19,— 


Schüler sucht dringend Soft- 
ware Spiele für Schneider 
CPC6128 auf Diskette: 

1942 3D Grand-Prix, Werner. 
Angebote an Jan Hundert- 
mark, Tel. 07720/31310 


Verkaufe Software: z.B. Co- 
pyshop / Painter / Spiele 
Wenny Alexander, Neusels- 
brunn 33, 85 Nürnberg 50 
Tel. 863877 


Verkaufe Original ‚‚Copy- 
shop“ 50 DM + Diskette zu 
Tips + Tricks 2, 20 DM. W. 
Nowarra, Wasserturmstraße 
14, 5000 Köln 90 


Hallo, C16&P4 Fans! Wer hat 
folgende Games zu tauschen: 
Suche ACE +4, Quiwi, Pilot 
X, Skooby Doo, Classics 3, 
Project Nova, Konami Coin 
Hits? Tausche gegen: Bride- 
head, Karate King, Skramble, 
Rockman, Terra Cognita. 

Es eilt !!! 

Jan Winkel, Wilhelmstr. 20, 
5230 Altenkirchen 


* 3° Markendiskette2CF * 
* DM 6,50 “ 
Allgem. Austro-AG & Hges., 
Ringstr. 10, D-8057 Eching/ 
Günz, Tel.: 08133/6116 
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Suche Tauschpartner CPC 
464. Tausche auf Disk./Tape. 
Biete Elite, Starglider, Merce- 
nary usw. Suche vor allem 
Strategiespiele u. Disk. zu 
Happy Computer, 7. Sonder- 
heft. Auch andere Prog. 
Siegfried Meyer, Meisenweg 6, 
3042 Münster, Tel. 05192/ 
5304 
VERKAUFE: Originalprog. 
auf 3“-Disk. u. Kass. (z.B. 
Elite, Copysthop etc.) Liste 
gg. Rückporto. SUCHE: 
Strategiespiele u. Prog.- 
Sprachen. Übersetze Ihre 
engl. Anleitungen ins Deut- 
sche. G. Radons, Kolbenzeil 
18, 69 Heidelberg 


PUBLIC DOMAIN SOFT- 
WARE f. Joyce u. CPC. Etwa 
2.000 dokum. Programme gg. 
Unkostenbeitrag. Ab Dez. 
auch f. PCs. Katalog-Disk. f. 
12,— DM, Info gg. 280 Pf.- 
Briefm.: PDI, Postfach 118, 
6464 Linsengericht 1 


CPC-6128-Software z.B. 
Mica, Star Texter, Page- 
maker, Tasword, viel Spiele, 
1 Joy., Drucker Star NG 10, 
Verb.-Kabel f. Datenrec., 
Green Mon., Bücher u. 2 
Zeitschr. wg. Systemwechsel 
zu verk. für 2.500,— DM. 
Anfragen unter Tel. 0631/ 
40656 


Wer kann mir mitteilen, 
welche Spiele ich auf dem 
Joyce PCW 8256 betreiben 
kann? Bin Anfänger auf 
diesem Gerät u. bin f. weitere 
hilfreiche Zuschriften dank- 
bar. Meldet Euch: Siegbert 
Hacke, Ginsterweg 18/303, 
3400 Göttingen 


Suche Vortex SP (mind. 258) 
Color-Mon. od. TV-Modula- 
tor, 5 1/4 Laufw. auf VB! 
Tel. AC-38229 

Suche Software f. CPC 6128 
u. dt. Spielanleitung f. „A 
View to a Kill‘! Angebote 
bitte an Gerd Tauschek, Ries- 
str. 6, 8861 Nähermemmin- 
gen! 


Verkaufe f. CPC 464 billig: 
Texpack 80,— DM; Star 
Writer I V. 3.0 f. 100,— DM; 
Datei-Star 2.0 (Originale) 
usw. Bücher, Sonderhefte, 
CPC International ab 3/85 
usw. Liste gg. Freiumschlag. 
P. Haub, Hauptstr. 17, 6306 
Langgöns 


Verk. CPC 6128, Farbmon. 
inkl. Lit., Software f. 950,— 
DM. Tel. 04261/835588 

ab 19 Uhr 


SCHNEIDER 


Weihnachts- 
Geschenk 
für CPC- Fans! 
Schneider aktiv 
heisst jetzt 
SCHNEIDER CPC WELT! 
ab Nr. 1/88! 
Mehr Umfang - 
mehr Farbe! 
Am 11.12. neu! 
SCHNEIDER CPCWELT! 


ihr User - Magazin 
An jedem quten Kiosk oder 
im Bahnhofsbuchhandel 


CPC-WELT 


SUPER CYCLE 


TEST 


Heisse Öfen 


Die Zeit der Motorradrennen ist 
jetzt zwar, jahreszeitlich bedingt, 
vorbei. Aber zum Glück haben Sie 
ja einen CPC und können Ihr ei- 
genes Motorradrennen in der 
„guten Stube“ spielen. Und bei 
diesem von der Firma Rushware 
vertriebenen Programm von Epyx, 


manchmal müssen Sie über schmale 
Brücken fahren, wo die Gefahr droht, 
daß Sie ins Schleudern kommen und 
ins Wasser fallen. Für Abwechslung 
ist also gesorgt, zumal auch manch- 
mal Hindernisse auf der Straße auf- 
tauchen, die Sie dann geschickt um- 
fahren müssen. 


ist die Illusion perfekt. Rasante 
Kurvenfahrten wechseln sich ab 

mit riskanten Überholmanövern und 
diversen gefährlichen Kollisionen. 
Es heißt also aufgepaßt, denn sonst 
landen Sie mit Ihrer Maschine im 
Strafengraben! 


BLEIBEN SIE IM ZEITLIMIT! 


Der Sinn des Spiels liegt darin, in ei- 
nem Straßenrennen innerhalb einer 
vorgeschriebenen Zeit, die bei jedem 
Kurs unterschiedlich ist, möglichst 
schnell das Ziel zu erreichen. Denn 
für jede Sekunde, die Sie unterhalb 
des Zeitlimits bleiben, erhalten Sie 
ein Mehrfaches an Punkten. Und je 
mehr Punkte Sie erreichen, desto 
eher werden Sie Sieger. Vielleicht 
machen Sie auch dem Toni Mang 
Konkurrenz? 


HINDERNISSE MÜSSEN 
UMFAHREN WERDEN! 


Die Strecken sind bei jedem Screen 
immer unterschiedlich. Manchmal 
geht es durch Wüstengegenden, 


Die Hindernisse sind recht vielfältig. 
Manchmal stehen kleine Hütchen 
herum, manchmal jedoch auch richti- 
ge Absperrplanken, die Sie zum Sturz 
bringen können. . 

Besonders tückisch sind Öllachen, 

die sich plötzlich auf der Straße be- 
finden und die Sie natürlich zum 
Schleudern und Stürzen bringen kön- 
nen, wenn Sie nicht schnell reagieren. 
Dazu brauchen Sie ein gutes Auge 
und schnelles Reaktionsvermögen. 


ACHTEN SIE AUF DIE 
KONKURRENZ! 


Und selbstverständlich dürfen Sie 
auch nicht mit Ihren Mitfahrern kol- 
lidieren. Ein sanftes seitliches An- 
stoßen macht nichts, nur voll von 
hinten auffahren dürfen Sie nicht. 
Dann löst sich Ihr Fahrer vollständig 
auf und verwandelt sich in ein klei- 
nes Häufchen Asche. Fast wie im 
richtigen Leben! Nur mit dem Un- 
terschied, daß Ihr Männlein nach 
einigen Sekunden wieder aufersteht 
und das Rennen fortsetzen kann. 
Nach dem Start des Programms 
können Sie zuerst den Level be- 
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stimmen. Am besten fangen Sie im 
Level I an, bis Sie Ihre Maschine 
wirklich beherrschen und sich sicher 
über die Hindernisstrecke bewegen 
können. Dann können Sie die Schwie- 
rigkeitsstufe erhöhen und sich lang- 
sam steigern, bis Sie sich reif fühlen 
für den schwierigsten Level. 

Wenn Sie sich dann mit „Ihrem“ 
Fahrer an der Startlinie befinden, 
kann das Rennen beginnen. Gelenkt 
wird mit dem Joystick. Der Starter 
zählt rückwärts, bis der Start freigege- 
ben wird. Und dann heißt es, schnell 
zu sein. 


GESCHALTET WIRD MIT 
DEM FEUERKNOPF 


Durch Druck des Joysticks nach 
vorn und gleichzeitiges Drücken des 
Feuerknopfes schalten Sie die Gänge 
hoch und erhöhen so die Geschwin- 
digkeit. Wollen Sie wieder langsamer 
werden, entweder gar nichts machen, 
dann rollt die Maschine aus oder 
bremsen, in dem Sie den Joystick 
zurückziehen. 
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von Epyx bei Hushware 
Welchen Gang Sie gerade eingelegt 
haben, erkennen Sie an den drei 
Kontrollampen in der Mitte der In- 
strumententafel, die sich am unteren 
Bildschirmrand befindet. Rechts da- 
neben erkennen Sie den Drehzahl- 
messer, links befindet sich der Ta- 
chometer. Besonders in Kurven müs- 
sen Sie auf die Geschwindigkeit 
achten, damit Sie sich nicht zu 
schnell im Graben oder an einem 
Baum wieder finden. 


EIN SCHNELLES SPIEL FÜR 
SCHNELLE REAKTIONEN 


Das Spiel erfordert schnelle Reaktio- 
nen und vorausschauendes Fahren. 
Die Bedienung ist dank der Joystick- 
steuerung sehr einfach, der Sound 
beschränkt sich auf Quietschgeräu- 
sche beim zu schnellen Kurvenfah- 
ren und auf Ping-Ping-Geräusche 
beim Aufaddieren der erreichten 
Punkte. Die Grafik ist passabel, je- 
denfalls für den CPC. Für Freunde 
der schnellen ‚‚Feuerstühle‘‘ sicher 
ein Programm, das viel Freude be- 
reitet. (JE) 
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Tacker, ein Spiel für den 1512, geht von einer wahren Horrorvision aus, 
die auch schon unter dem Namen „‚Millionenspiel‘’ im Deutschen Fernsehen 
lief: Um zu gewinnen, das eigene Leben aufs Spiel setzen! 


Der Begriff ‚‚Horrorshow“ sollte 
nicht etwa das Programm kennzeich- 
nen, sondern es ist der ursprüngliche 
Anlaß für die Spielidee. Das Fern- 
sehen der Zukunft möchte seine 
Einschaltquoten in die Höhe trei- 
ben und beweist seinen immer noch 
schlechten Geschmack mit einer 
Todesshow. Gesucht wird eine at- 
traktive Frau (ja richtig: Männer ha- 
ben in diesem Spiel nichts am Joy- 
stick zu suchen), die bereit ist, in 
einem Kamikaze-Unternehmen ihr 
Leben möglichst fotogen dahinzu- 
hauchen. 

Der Planet Egron soll angeflogen 
und der militärische Trainingssimu- 
lator vernichtet werden. Automati- 
sche Kampfsysteme und bewaffne- 
te Roboter machen die Aufgabe 
schwer. Sie verkörpern die junge 
Dame Tallis vom Planeten Nevenia, 
die mit diesem Angriff vor den Au- 
gen aller Kameras endlich die Ein- 
schaltquoten der 1297. Folge der 


Schwarzwaldklinik übertreffen soll. 


KURZROMAN ALS 
KOPIERSCHUTZ 


Tracker kommt in einer stabilen 


Pappschachtel mit reichhaltigem In- 
halt an. Wer es mag, darf sich ein 
DIN A3-Poster an die Wand pinnen, 
darüber hinaus findet sich eine aus- 
führliche deutsche Spielanleitung 
mit 20 Seiten. Die Tastaturbelegung 
gibt es auch noch einmal als Merk- 
blatt und zumindest der ‚‚Tracker- 
Einsteiger‘ wird das Faltblatt öfter 
benötigen als ihm lieb ist. Neben der 
Diskette wird der Kurzroman (17 
Seiten) von James Follet zum wich- 
tigsten Requisit, gründet sich doch 
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darauf der gesamte Kopierschutz. 


Um es vorweg zu sagen: Der Autor 
ist kein Issac Asimov, Freunde der 
Science-fiction-Lektüre werden ent- 
täuscht sein. Die kleine Anekdote ist 
in 20 Minuten gelesen und in zwei 
Minuten vergessen. 

Die Form des Kopierschutzes ent- 
spricht an sich den Forderungen, 
die Schneider aktiv immer stellte. 
Sie ermöglicht dem ehrlichen Käufer 
das Anfertigen einer Sicherheitsko- 
pie, während Raubkopierer das 
Handbuch fotokopieren müssen. 
Dabei stellt sich allerdings die Frage, 
ob 18 Seiten so abschreckend wir- 
ken, oder ob sich Hacker diese Son- 
derausgaben nicht doch leisten kön- 
nen. Ein wenig mehr Text hätte also 
nicht geschadet. 

Rainbird ging die Sache wohl auch 


ein bifschen eilig an und übertrieb 


dabei. Im Bildschirmtext zeigt sich 
ein Schreibfehler und bei Fehlein- 
gaben kommt es zu Problemen. Drei 
Passwörter werden abgefragt, wobei 
diese Sicherheitsroutine immerhin 
Kleinschreibung akzeptiert. Irrt 

man sich, dann meldet sich das 
Laufwerk A, ein Neustart ist aber 
nicht möglich. Schlimm wird es, 
wenn man dann den Rechner zu- 
rücksetzen will. Die Tastaturabfrage 
läuft nicht mehr, der Computer muß 
völlig ausgeschaltet werden. Besitzer 
einer Festplatte tun dies ungern, 
ohne vorher den Lesekopf der Hard- 
disc „geparkt‘ zu haben, was leider 
nicht möglich ist. Unerklärlich ist es, 
warum es mehrmals passierte, daß 
die Passwortabfrage mit einem Code- 
wort zufrieden war. Vielleicht wurde 
uns schon ein gewisses Maß an Ver- 
trauen entgegengebracht. 

Klappt alles, dann zeigt Tracker 


sein Hauptmenü, mit dem einige Para- 


meter neu eingestellt werden kön- 
nen. Mit “Solid Graphics“ ist nicht 
etwa die EGA-Karte gemeint, son- 
dern der Gegner in der dreidimensio- 


nalen Vektorgrafik erscheint mit aus- 


gefüllten Flächen. Die Tastaturbele- 
gung kann geändert werden und die 
szenen auf einem Vollbildschirm 

ablaufen, während sonst nur die un- 
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sezenen auf einem Vollbildschirm 
ablaufen, während sonst nur die un- 
tere Bildschirmhälfte genutzt wird. 
Man sollte sich vor dem ersten Spiel 
das Bedienungshandbuch durchle- 
sen. Die Möglichkeiten und Anfor- 
derungen,die Tracker bietet, sind 
verwirrend. Das beginnt schon mit 
einem Labyrinth-ähnlichen Aufbau 
des Spielfeldes. Es handelt sich da- 
bei aber um ein strategisches Spiel- 
brett, in denen Knotenpunkte be- 
sonders besetzt und verteidigt wer- 
den. Zudem spielt der Computer 
recht intelligent und vermag einen 
ganzen Sektor zu umzingeln, um sei- 
nen Gegner zu erwischen. 

Solange es nur um eine Fortbewe- 
gung und einen Überblick geht, 
spielt man besser auf den Landkar- 
ten. Man kann die sechs zur Ver- 
fügung stehenden Skimmer (Glei- 
ter oder Fahrzeuge) mit der Maus 
zum nächsten Knotenpunkt schie- 
ben und beobachtet dabei sorgsam, 
ob sich Feinde, die auf der Karte 
als Dreieck dargestellt sind, nähern. 
Wenn dies der Fall ist, oder wenn 
man einen Knotenpunkt erreicht, 
ist es Zeit, in den Gefechtsmodus 
umzuschalten. Hier läuft eine wirk- 
lich perfekte dreidimensionale Vek- 
torgrafik ab, doch dazu später. 

Das Spielfeld unterteilt sich in sie- 
ben Bereiche, von den 6 kreisförmig 
um die innere zentrale Zone grup- 
piert sind. Tunnel oder Gänge stel- 
len die Verbindung her. Jedes der 
Außsenteile besitzt etwa 100 Knoten- 
punkte, in denen man sich erst ein- 
mal zurechtfinden muß. In der Mit- 
te gibt es eine Kommunikations- 
einheit, die mit einer Plasmabombe 
zerstört werden kann. Es empfiehlt 
sich dies zu tun, denn durch den 
Kommunikationsmangel verliert 
der Erzschurke, ein halborganisches 
Riesengehirn in der Zentraleinheit 
die Verbindung. Der Spieler kann 
sich dann relativ sicher vor Spähern 
und Verteidigern innerhalb der ab- 
geschnittenen Zone bewegen. Man 
darf aber nicht vergessen, daß der 
Computer natürlich besonders auf 
die Ausgänge dieser Einheiten ach- 
tet. 

Mit den Plasmabomben ist es so ei- 
ne merkwürdige Sache. Der Vorrat 
ist recht begrenzt, nur sechs Stück 
stehen zur Verfügung. Die Kugeln 
hüpfen wie Gummibälle durch die 
Korridore, sofern man beim Ab- 
feuern nicht einen geraden Kurs 
hält. Wer zu schnell fliegt, holt sein 
Geschoss noch ein, wird vielleicht 
vernichtet, kann aber seinen Fehl- 
schuß vielleicht auch wieder ein- 
laden. 

Da alleine für einen Späher oder 
Verteidiger mehrere Schüsse not- 
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wendig sind, sollte man den Vorrat 
im Auge haben und sich rechtzeitig 
Gedanken über Nachschub machen. 
Gelegenheit dazu hat man des öfte- 
ren, ja man kann sogar in den Besitz 
einer Quark-Bombe (bitte nicht la- 
chen) kommen, bei besonderen An- 
lässen sogar zur Neutronenbombe. 
Nur mit der letzteren kann das böse 
Hirn schließlich vernichtet werden. 


EINWANDFREIE GRAFIK MIT 
PERFEKTER STEUERUNG 


Ein MS-DOS-Rechner ist nicht unbe- 
dingt zum Spielen geeignet, wesent- 
licher Kritikpunkt ist zumeist die 
Grafik. Hier kann man den Program- 
mierern von Tracker jedoch eine 
Meisterleistung bestätigen. Der zeit- 
kritische Ablauf der Vektorgrafik 
ist beeindruckend schnell, die Ob- 
jekte bewegen sich absolut ruckfrei 
und sind leicht zu steuern. Gerade 
mit der Schneider-Maus machen die 
Action-Szenen besonders viel Spaß. 
Obwohl die Rechenarbeit, die der 
Computer zu leisten hat, enorm ist, 
dürfte es kaum gelingen, den Gleiter 
mit Höchstgeschwindigkeit durch 
die Gänge zu jagen. Der dreidimen- 
sionale Effekt wird dabei durch 
Schattenbewegungen noch verstärkt. 
Aber nicht nur im Kampf-Modus, 
sondern auch in der strategischen 
Übersicht überzeugt der Bildschirm. 
Die beiden Landkarten verschaffen 
einen klaren Überblick. Die obere 
zeigt die Umgebung des aktiven 
Gleiters, mit der unteren kann man 
sich einen totalen Überblick ver- 
schaffen, Einzelheiten auch ver- 
größert darstellen lassen. Dabei 
funktioniert die Karte wie ein GEM- 
Window. Bildschirmausschnitte las- 
sen sich horizontal und vertikal 
verschieben. 

Links oben befinden sich die wichtig- 
sten Schalter. “MOVE‘“ zur Bewe- 
gung des Gleiters, “COMBAT“ zur 
Umschaltung in den Kampf-Modus 
und “CENTRE“, um die untere 
Landkarte an den Ort des eigentli- 
chen Geschehens zu transportieren. 
Ein zusätzliches Menü auf der rech- 
ten Seite ermöglicht unter anderem 
das Abspeichern des Spielstandes 
und der Highscore-Liste. Die unte- 
ren Menüs dienen zur Auswahl des 
aktiven Gleiters. 

Daß man bei einem derart aufwen- 
digen Spiel auch an die Tastatur 
muß, ist klar. Bei Tracker lassen 
sich jedoch die wichtigsten Funktio- 
nen, Steuerung, Tempo und Feuer 
mit der Maus steuern, was den Spaß 
komplett macht. Die belegten Ta- 
sten müssen nicht in aller Hektik ge- 
sucht werden. Wer auf die Maus 
verzichten will, der tut sich damit 
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nicht unbedingt einen Gefallen. Hier 
sollte zuvor die Tastenbelegung um- 
geändert werden, um sich nicht auf 
dem Höhepunkt der Schlacht die 
Finger zu verknoten. Wie bereits er- 
wähnt, bietet Tracker hierzu ein 
Installationsmenü an. 


DER SOUND SCHEITERT 
AN DER HARDWARE 


Wer nur seinen PC kennt und nichts 
anderes, der wird mit den Geräu- 
schen sicherlich zufrieden sein, auch 
dabei wurde das Bestmöglichste ge- 
tan. Andererseits ist die Soundquali- 
tät eines solchen Rechners kaum 
Nennenswert, so daß um Nachsicht 
gebeten werden muß, wenn es allzu 
klagvoll aus der Zentraleinheit des 
Schneider PC piept und brummt. 
Übrigens beginnt das Spiel mit ei- 
nem Demolauf, bei dem keinerlei 
Töne zu hören sind. Man weiß wohl 
um die Werbewirksamkeit eines PC- 
Tongenerators. Der flackernde Maus- 
zeiger, den man dabei beobachten 
kann, spielt allerdings keine Rolle. 
Er verschwindet im Spiel. 


FAZIT: EIN SPIEL MITDEM MAN 
RUNDHERUM ZUFRIEDEN 
SEIN KANN 


Es ist wie beim Backen, auf die Mi- 
schung kommt es an. Rainbird ist 
da mit Tracker ein Meisterstück ge- 
lungen, welches weitaus besser ist, 
als der Vorgänger ‚‚Starglider‘“. 
Zwar ist die Idee etwas makaber, 
aber immerhin fern aller Realität in 
der Zukunft angelegt. Beim Spiel 
selbst werden Orientierungssinn, 
strategisches Denken und Reaktions- 
vermögen gleichartig verlangt. Wer 
nur auf den Feuerknopf drücken 
will, der wird mit Tracker ebenso 
fehlbedient sein, wie jener, der auf 
ein neues Denkspiel hofft. Der All- 
round-Könner (pardon: die All- 
round-Könnerin) ist gefordert. 
Der Unterhaltungswert ist hoch. Es 
dauert Stunden, bis man in gefähr- 
liche Nähe des Zieles kommt und 
trotzdem bieten sich unterwegs ge- 
nug Erfolgserlebnisse. In dieser 
Hinsicht ist die Option zum Abspei- 
chern des Spielstandes nur zu be- 
grüßen. Im Ganzen besehen, kann 
Tracker jedem sehr empfohlen wer- 
den, wobei das Verb ‚‚sehr‘‘ mit Be- 
dacht gewählt wurde. Einige Aus- 
nahmen gibt es allerdings laut Be- 
dienungshandbuch: Droiden und 
Unsterblichen ist die Teilnahme am 
Fernsehspaß verboten. Aber damit 
läßt sich leben. 

(GS) 
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VERDIENEN SIE GELD 
MITIHREM COMPUTER! 


WIR ZAHLEN BIS ZU 1000DM! 


Haben Sie einen CPC 464 oder 664 ? Einen 6128 
Können $ie programmieren? In Basic oder 
Maschinensprache? Dann bietet SCHNEIDER AKTIV 
Ihnen die Möglichkeit, mit diesem Hobby Geld zu verdie- 
nen! 


Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwende- 
te Hardware — eventuelle Erweiterungen — benutzte Pe- 
ripherie — hervorgehen muß, ein. 


Benötigt werden: eine Datenkassette oder Diskette! 
Wenn die Redaktion sich überzeugt hat, daß dieses Pro- 
gramm läuft und sich zum Abdruck eignet, zahlen wir 
Ihnen pro Programm je nach Umfang bis zu DM 300, —! 


Name des Einsenders: 


Für das ‚Listing des Monats‘‘ sogar DM 1.000,'—. 
Sie erhalten Ihre Kassette /Diskette selbstverständlich 

zurück, wenn Sie einen ausreichend frankierten 

Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift ga- 
rantieren, daß Sie der alleine Inhaber der Urheber-Rechte 
sind! Benutzen Sie bitte anhängendes Formular! (Wir 
weisen darauf hin, daß auch die Reaktion englische 
Fachzeitschriften liest und ‚‚umgestaltete‘‘ Programme 
ziemlich schnell erkennt). 


Um Ihnen die Arbeit zu erleichtern, finden Sie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


Straße /Hausnr. /Tel.: 


PLZ/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt [| Listings {| Kassette || Diskette 


Ich versichere, der alleinige Urheber des Programms zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es in 
den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. Das Copyright 


geht an den Verlag über. 


Rechtsverbindliche Unterschrift 


SCHNEIDER AKTIV 
PROGRAMM-REDAKTION 
POSTFACH 1161 
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